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3788 Johnson Road 
Granite City, Illionis 462848 
November 1, 1979 


MR. HOWARD CUMMINGS 
S811 flaming Leaf Court 
Nerth Chicago, Illinois 4@@464 


Thank you for your recent inquire about product. Yours has been 
one of many that we have received and the favorable introduction 
of it to the market is most encouraging. 


At the present time time we have been handling the orders we 
have received on a first come basis. 


We anticapate that production will meeet inventory 
requirements in about two weeks. We are sorry for this 
inconvenience, but will make arrangements for you to receive 
your order in the quickest time possible. 


We are sending under separate cover, our most recent 
publication, UNDERSTANDING MICROCOMPUTERS. This publicaton is 
we feel a valuable contributions to this new product and hope 
that it will serve to compensate you for having to wait for your 
arder. 


If there is any way that we be of further service to you, or may 
help you during this delay feel free to contact us. 


Sincerely yours, 
Robert C. Berryworth 
Customer Relatians 
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370& Johnson Road 
Granite City, Illionis 62040 
November 1, 1979 


MR. HOWARD CUMMINGS 
Sé11 flaming Leaf Court 
North Chicago, Illinois 60064 


Thank you for your recent inquire about product. Yours has been one of many that we have 
received and the favorable introduction of it to the market is most encouraging. 


At the present time time we have been handling the orders we have received ona first come 
basis. 


We anticapate that production will meeet inventory requirements in about two weeks. We are 
sorry for this inconvenience, but will make arrangements for you to receive your order in the 
quickest time possible. 


We are sending under separate cover, our most recent publication, UNDERSTANDING 
MICROCOMPUTERS. This publicaton is we feel a valuable contributions to this new product and 
hope that it will serve to compensate you for having to wait for your order. 


If there is any way that we be of further service to you, or may help you during this delay feel 
free to contact us. 


Sincerely yours, 
Robert C. Berryworth 
Customer Relations 
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3708 Johnson Road 
Granite City, Illionis 62040 
November 1, 1979 


MR. HOWARD CUMMINGS 
S811 flaming Leaf Court 
North Chicago, Illinois 60044 


Thank you for your recent inquire about product. ‘Yours has been one of many 
that we have received and the favorable introduction of it to the market is 
most encouraging. 


At the present time time we have been handling the orders we have received on 
a first come basis. 


We anticapate that production will meeet inventory requirements in about 
two weeks, We are sorry for this inconvenience, but will make arrangements 
for you to receive your order in the quickest time possible. 


We are sending under separate cover, our most recent publication, 
UNDERSTANDING MICROCOMPUTERS. This publicaton is we feel a valuable 
contributions to this new product and hope that it will serve to compensate 
you for having to wait for your order. 


If there is any way that we be of further service to you, or may help you 
during this delay feel free to contact us. 


Sincerely yours, 


Robert C. Berryworth 
Customer Relations 
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1 * 
Re FILE =-- EQU 
3 * 
LL KH K HHH KE HEHEHE EHH KEE 
o * Letter Perfect Atari * 
& * V6.2 enhanced * 
TKK HK HHH EE HK HH HEH 
8 * 8 Dec 1983 
9 * 
1a TLE “LETTER PERFECT Atari V6." 
11 * 
12 3 System equates 
is 3 
14 WARMST EQU 8 
15 BOOT EQU 49 
16 DOSINI EQU $C 
17 * 
18 SDLIST EQU #232 
19 COLDST EQU $244 
22 TABMAP EQU %2AS 
21 COLOR4 EQU 208 
ze AIO EQU %2FB 
23 KEYREG EQU 2FC 
4 
z 25 DDEV EQU $3 
26 SDEV EQU $3121 
27 DCMND EQU $322 
28 DSTATS EQU $313 
29 IOBB EQU $324 
3 DTIME EQU #326 
31 DVLEN EQU $328 
se SECT EQU $3210 
33 ICMND EQU $342 
34 IBUFF EQU 344 
35 ILEN EQU $348 
36 IAUX1 EQU #34fA | 
37 * thle OD 
38 COLPMA EQU #$#DZ1z 
39 WSYNC EQU D420 
41 NMIEN EQU ¢$D4ME 
41 % oe 
42 PRINTV [EQU $E432 | 
43 DSKINV | EGU $E453 | 
44 CIO -EQU E456 
45 Sio EQU E459 
46 SYSVB EQU $E45C | 
47 XITVB (EGU $E462 | 
48 * \ eae 
49 5 L—— 
s4 3 character equates 
~~ wai 4 
Se BLD EQU «£ 
33 CNTR EQU 3 
54 MARK EQU 4 
35 FMT EGU 6 
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LETTER PERFECT Atari V6é.a@ 
56 FTR EQU 7 
57 HDR EQU 8 
58 KLK EQU $B 
59 EOP EQU 1a 
6@ UND EQU 15 
61 SPC EQU $16 
62 EOT EQU 1B 
63 SP EQU $20 
64 BSC EQU "< 
65 FAR EQU "> 
66 CR EQU $98 
67 * 
68 3 my zero-page locations 
69 ; 
7@ Loca EQU a 
71 LOC. EQU 1 
72 DSEC EQU $43 
73 DADR EQU $45 
74 DLEN EQU $47 
75 WW EQU $53 
76 CV EQU $54 
77 COL EQU $55 
78 SAVMSC EQU $58 
79 XIO EQU 6a 
8@ YIO EQU $61 
81 TCOL EQU $62 
82 TCV EQU 63 
83 BASE EQU $64 9 
84 ABASE EQU $66 % 
85 CAPS EQU \S68— 7 
86 TIME1 EQU ‘SE 
87 CHAR EQU 6A 
88 WDOK EQU 6B 
89 * 
32 TOPMAR EQU $80 
91 MARGIN EQU $81 
92 JUSTIFY EQU #82 
93 WIDTH EQU $83 
94 SPACE EQU $84 
95 PLPGE EQU $85 
96 STOP EQU $86 
97 FONT EQU $87 
98 AMAR EQU $88 
99 HDSP EQU $89 
1@@ FTSP EQU 8A 
1@1 TIND EQU $8B 
1@2 BOTMAR EQU $8C 
1m3 * 
1@4 BOLD EQU $9 
1@5 BYTE EQU $92 
1@6 BOLD1 EQU $91 
127 UWSTART EQU #91 
128 JFLAG EQU $92 
129 CENTER EQU $93 
11@ LEN1 EQU $93 
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LETTER PERFECT Atari V6é.a@ 


a oe 


NSPACE 
BLOCK 
UCNT 
SEQ 
INDENT 
PWD 
DCEND 
PRNCNT 
GPTR 
CHRCNT 
UNDLINE 
MODE 1 
TXT 
PMODE 
LINE 


5 

WP 
CNT1 
WWD 
WMAR 
SNDX 1 
FSP 
HFLAG 
ADR 
FFLAG 
COND 
HF MODE 
CWD 
UWEND 
CNT 
PAGEN 
TXEND 
PTR 
VAL 
APTR 
BPTR 
MIN 
MAX 
MASK 
VPTR 
FUNIT 
DUNIT 
* 
DIRP 
DYP 
HYP 
DIRS 
DFLAG 
DCNT 
FCNT 
RCNT 
DBFLAG 
HIM 

* 

POS 


EQu 


EQU 


EQu 


EQU 
EQU 


EQU 
EQu 
EGU 
EGU 


EGU 


EQu 
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LETTER PERFECT Atari V6é.a Page: 4 
166 MPOS EQU #$CE 

167 TOS EQU CF 

168 KIN EGU Da 

169 KOUT EQU #D1i 

174 INSM EQU De 

171 OSTREAM EQU D3 

172 RDFLG EQU D4 

173 LMAR EQU D5 

174 TIME EQU D6 

175 DWW EQU D7 

176 

177 MODE EQU #D8 

178 STATUS EQU D9 

179 STATI EQU DA 

18a COUNT EQU DB 

181 LEN EQU DC 

182 XREG EQU DD 

183 YREG EQU DE 

184 TEMPi EQU DF 

185 TEMPe EQU $Ea@ 

186 TEMPS EQU #E1 

187 NFLAG EQU #E2 

188 MTMP EQU #E3 

189 CSV EQU $E7 

19%@ BRKV EQU EE 

191 INVFLG EQU Fm 

192 EMODE EQU $F1 

193 BYPTR EQU Fe 

194 TEMP EQU FS 

195 SPST EQU #F4 

196 * 

197 ¢§ non-zero page 
198 * 

199 SVFLG EQU #1 

22a FNAME EQU #121 

221i HTYP EQU #114 

eae TCONT EQU #111 

243 HSEC EQU #113 

224 NAME EQU #115 

eas * 

226 KBUFF EQU $3482 

227 * 

228 TSTR EQU #5C2 

2249 SNDX EQU #5FE 

Zia IN EQU #6122 

ELL 

fiz BFBGN EQU $3522 

213 DHSPC EQU BFBGN 

£14 DSEG EQU DHSPC+184 
21S DDID EQU DHSPC+182 
216 DSPC EQU DHSPC+#122 
217 DATAB EQU DSPC+$220a 
218 HDRB EQU DSPC+#622 Chgd ta make room for ISBOOT 
219 DIRE EQU DSPC+#724 
22a VTOCB EQU DSPC+#8aa 
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LETTER PERFECT Atari Vé.@ Page: 5 
eel DBBUFF EQU DSPC+s922 

e222 PARAM EQU DSPC+$Rha% 

223 SRCH EQU PARAM+$42 

224 NAMEL EQU PARAM+$52 

225 * 

ecé& DCBEND EQU BFBGN+#15a2 

227 BFEND EQU BFBGN+#16272 

228 START EQU BFEND 

e295 # 

2Sl ORG #15862 482+ (4b@a-3aaia) 
roa md ORG #482 

233 OBJ * 


234 
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2482: 2a 6B 
ectors to load 
2482: 82 274 89 
2485s 04 


2486: 4C 89 4 


2489: AD 24 
248B: AM a9 
@48D: 28 40 39 
2492: AI Q1 
re) 

2492: AB 
2493: 8D ai a3 
2496: 22 D4 a4 

“™.99: AD aa a5 
490: 3a 2E 
@49E: AD FC ae 
@4Ai: C9 Ca 
Q4A3: B2 26 
Q24A5: 22 61 39 
24A8: C9 1B 
@4AA: D@ iF 


a4AC: ADI ZA 
24AE: AA BF 
@4B2: 22 40 39 
24kRS: 22 QF a7 
@4B6: AD 4B 
@4BA: 22 2D 28 
24BER: 8C ZB AS 
@4BE: Ae 6C 
(GENESIS/$48@=1 ) 
(@400: BE 2A as 

6 M403: AI iC 
@4C5: 22 70 32 
W408: 40 1 4B 


@4CB: 4C wa 39 


-—— 


“4CE: AD Zi 5 
@4D1is AC we a5 
@4D4; 85 BE 
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264 
265 
266 
267 
268 
269 
27a 
271 
ral fd 
273 
274 


275 
276 
277 
278 
ar 
284 
281 
2682 
283 
284 
285 


* 
HERE 
* 


PAGE 


FILE -= BOOT? 


HHH KEKE HK HEHEHE HHH KEK EEE 
* LETTER PERFECT Atari * 


@, LOADEND-GENES1IS+127/128 Not used, 


GENESIS, RESET Load-start address, 


#FINIS—-CONFIG+127/128 Number to load 


* Version 6.2 * 
* 23 Nov 83 * 
KH KKLHEE EKER EHH KE HHHEE 
% 
GENESIS DFB 
DFW 
JIMP RESET > 
* 
RESET 
LDA #) RESET 
LDY #RESET 
JSR SETPTRS 
LDA #1 
TAY 
STA SDEV 
JSR STDR1 
LDA VTYP 
BMI DOCONFIG 
LDA KEYREG 
CMP ##C2 
BCS DOBOOT 
JSR KGETCH 
CMP #16 
BNE DOBOOT 
% 
DOCONF IG 
LDA #)EXIT+S 
LDY #EXIT+S 
JSR SETPTRS 
JSR VCOLD 
LDA #>CONFIG 
JSR TOBF 
STY SECT+1 
LDX 
STX SECT 
LDA 
JSR RBELK 
JMP CONFIG 
% 
DOBOOT JMP ISBOOT 
% 
* 
STDR LDA DFU 
LDY DDU 
STDR1 STA FUNIT 
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Jump back here on reset 


Set 
Set 


Set 


Not 
Key 


Not 


He do it to it? 


If bad load, 


Where to put 


& 


DOSINI/DOSYBK 
(in case of configu 


drive 1 


drives 


configured 
been pressed? 


a legal key 


Rtns Y= 
#LOADEND—-GENESIS+255/128 Disk sector number 


Num of $s 


DOSINT 


cause reboot 


Might be at end of program 


? Feb-1984 


ASA s 
—a. fi. 
aS5Qis 

“Se s 
G3: 


1 


mia 


BF 


B4 


BS 


a1. 
7a 


a=) 


FF 


FF 


Zi 


174) 


FF 


FF 


LETTER PERFECT Atari Vé.@ 


STY DUNIT 
RTS 
* 
* A =Source, Y =destination, 
MMOVE STA VPTR+1 
STY PTR+1 
LDY #12 
STY PTR 
STY VPTR 
MM 1 LDA (VPTR),Y 
STA (PTR),Y 
INY 
BNE MM1 
INC PTR+1 
INC VPTR+1 
DEX 
BNE MMi 
RTS 
x 
RES #$5@i2-—* 
* 
* Configure defaults 
VTYP DFR $FF 
DFU DFB i 
DDU DFB 2 
DDNS DFR @ 
4 
* Print file, 
Ea 
* EPSON. PRINT 
* 22 NOV 83 
* 
PBUFF 
PTY PE DFR #2 
3;PMASK DFR $7F Not used 
;LFFLG DFR $FF Not used 
BDW DFR @ 
BSSC DFB #2 
NORM DFB 
DFR @,8,8,2, 12 
BUSS DFE 
BDOFF DFB 
UON DFB 
ULOFF DFB 
SUP DFB 


12, 10,1,64,2,112,2,0 


Page: 7 


X =pages 


Video type FF-unconf, i-bits, 2 
Default file unit 

Default dict unit 

Single/deuble density 


defaults should be sector num #3 and #4 


j;last is default font 


$1B, "E, $FF, $FF 
$1B, "F, $FF, $FF 
$1B, $2D, $1, $FF 
$1B, $2D, $2, $FF 


$1B, "4, $FF, $FF 
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LETTER PERFECT Atari V6.4 Page: 8 

331 SUB DFR 18, "5, $FF, $FF 

332 VSP DFR #18, "A,6, $FF, $FF, $FF 
333 VFUL DFB #18, "2, $FF, $FF, $FF, $FF 
334 FONT DFB #12, $1B, “H, S&F, $FF, FF 
335 ZSP DFB FF 

336 MXSPC DFR FF 

337 FONT DFR $F, 1B, "H, $FF, $FF, FF 
338 BOLDC DFR FF 

349 ECHAR DFR FF 

344 FONT2 DFR $12, 1B, "G, $FF, $FF, $FF 
341 DFR $FF, $FF 

342 FONTS DFR $F,%1B,"G, FF, $FF, $FF 
343 DFR $FF, FF 

344 * following are centronics chr width 
345 CTBL DFB #7, #7, $A, $F, $C, $12 
346 DFR #E, $7, #7, %7, $C, $C 

347 DFR £7, $C, $7, $C, $C, $C 

348 DFR $C, $C, $C, $C, $C, $C 

349 DFB $C, $C, $7, $7, $C, $C 

35a DFB $C, $C, SE, $12, $F, $E 
351 DFR 12%, $E, $E, $12, $12, $A 
352 DFR $E, $12, $E, $12, $12, $124 
353 DFB $E, $E, $F, $C, $E, $12 
354 DFR #124, $12, $124, $12, $A, $C 
355 DFB #€C, $C, $C, $C, $7, $C 

356 DFB $C, $A, $C, $C, $A, $C 

357 DFB $C, $8, $6, $C, $8, $12 
358 DFB $C, $C, $C, $C, $A, $C 

359 DFB #A, $C, $C, $12, $C, $C 
S62 DFR $A, $A, $7, $A, $C, $7 

S61 DFB #2 

S62 * 

363 RES $6221-—* 
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LETTER PERFECT Atari V6. a@ 


364 RES FF 
365 RES #21 


Page: 93 


Should be at #7aa 
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W722 s 
A7A3% 
7 WE s 
W7AD s 
A7AC s 


A7AF s 
07123 
M7145 
2716: 
@7195 
W71iCs 
a7iD: 
W71F 3 
A722: 
W7Z4: 
aw725 s 
27: 
~7e#A:! 
W72D s 
A7ZF s 
W731: 
W733% 
W734: 
A737: 
W73A: 
W@73D5 
W73F : 
W7415 
W743: 


W746 
A748: 
2746 s 
@74D: 
W752 s 
a7SS: 
W734 s 
A7SEs: 
W757 : 
A7SIs 
“7SB: 
lf SEs 


“W7SF s 
W7EG15 
rd 


iF 
1E 


E4 


D4 


pa 
D4 


D4 
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367 
368 
369 
374 
371 
372 
373 
374 
375 
376 


391 


402 


427 
418 


PAGE 


* 
KEE 
* 
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FILE -- VID4a 


HEE E EEE KEE EEE 
* ATARI 4@ COLUMN * 


* Video for LP 


* 


KEKHKEKREKHKEKEKKKHHKEE 


RDKEY JSR 
JSR 
JSR 
JSR 


JmPp 


VCOLD 


VWARM 


RING 
RING1 


*% 
VIDEO 


STOADV 


VSAVE 
DOCUR 
CGKEY 
OFCUR 
VREST 


VSET 
DWW 

#SP 
START 
SDLIST+1 


#CR 
CRET 


14 
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64 


a7 


422 


Ah 


428 


434 
431 


462 


467 
468 
469 


476 


ADV 


ADV1 


UP 


VTAB 
BASCALC 


MYBC 
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JSR 
INC 
LDA 
LDY 
BNE 
LDA 
CMP 
BCC 
RTS 


DEC 
BPL 
LDA 
STA 
LDA 
BEQ 
DEC 
LDA 
JSR 
L.DA 
ADC 
STA 
RTS 


STA 
ASL. 
ASL 
ADC 
PHA 
LSR 
LSR 
LSR 
LSR 
LSR 
STA 
PLA 
ASL 
ASL 
ASL. 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
RTS 


LDA 
STA 
INC 
LDA 
CMP 
BCC 
DEC 
LDA 
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SWRITE@ 
COL 


BASE+1 


SAVMSC 
BASE 
BASE+1 
SAVMSC+1 
BASE+1 


BASCALC 
CV 
#1 


ii 
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7BF: 48 477 PHA 
W7CH: 22 91 W7 478 JSR MYEC 
@7C3: AS 64 479 SCROL LDA BASE 
a7C5S: B85 66 480 STA ABASE 
@7C7: AS 65 481 LDA BASE+1 
@7C9: 85 67 482 STA ABASE+1 
@7CB: 68 483 PLA 
a@7CC: 69 Oi 484 ADC #1 
@7CE: C9 18 485) CMP #24 
@7Da: BA AF 486 BCS SCROLZ2 
@7D2: 48 487 PHA 
@7DS: 22 91 a7 488 JSR MYEC 
@7DE: AA 27 489 LDY #39 
@7D8: Bi 64 49% SCROL1I LDA (BASE), Y 
@7DA: 91 66 491 STA (ABASE),Y 
@7DC: 88 492 DEY 
@7DD: 14 F9 493 BPL SCROLi 
W7DF: 3a Fe 494 BMI SCROL 
@7E1: 28 a5 a7 495 SCROLe JSR VTAB 
W7E4: 92 Ac 496 BCC CLRLN 
497 * 
498 RES 3& 
499 * 
Sia * 
@7E9: 22 EA 2a 5@i SCLTOP JSR HVSAVE 
“VEC: AQ aa 5a2 CLTOP LDA #2 
TEE: AB 5a3 TAY 
W7EF: #22 De 2a 524 SETIT JSR SETHV 
525 * 
27Fe: Ag wa 526 CLRLN LDY #2 
@7F4: 2c 527 DFR #$2C 
Q@7F5: A4 55 528 CLEOL LDY COL 
a7F7: AI aa 529 CLEOL1 LDA #2 
W7F9: 22 Be ae 512 JSR SWRITE 
@7FC: C8 Sit INY 
@7FD: Ca 28 512 CPY #42 
@7FF: 92 FG S13 BCC CLEOLi 
2BAis 6A 514 RTS 
515 * 
aaaz: A4 5S 516 OFCUR LDY COL 
2804: AS CF 517 LDA TOS 
ZaAG: B9i 64 518 STA (BASE),Y 
@a28: 46 D4 519 LSR RDFLG 
2a2A: 6A 522 RTS 
Sol * 
ZaAE: 42 2a 6a Sze SmMsk DFR $42, $22, $62 
S23 * 
WAVE: BA Awd vas 
@GBi1is 27 524 DECI DFB @,@,)>19@a,> 12000 
Wiz: BWA 64 EB 
MBAS: 12 S25 DEC@ DFB 18, 108, $£8, $1a 
i 526 * 
“a816é: AS De 527 INSMC LDA INSM 
28ie: 49 Ba 528 EOR ##8@ 
@BiA: BS de 529 STA INSM 


no 
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SiC: AD aa boi 4 LDA #4 
WB1lE: 24 De o31 BIT INSM 
2Bea: 14 wae aoe BPL INST1 
“Bee: AQ 4C 33 LDA #76 
@824: 8D C8 we 234 INSTI STA COLOR4 
Wa27: Gia 535 RTS 

JG % 

S37 RRR KEKE E EEE 

738 * LJK VBLANK * 

FSD KER KKK KEKE ERE KHKE EER 

5424 MYVB 
2828: C6 69 o41 DEC TIME1 
aseA: DA 1a a4 BNE MYVEB1i 
WB2C: AQ 1E 943 LDA #32 
WB2E: O85 69 D44 STA TIME 
YWHS0: 24 D4 545 BIT RDFLG 
@BS2: 12 28 S46 BPL. MYVBI1 
M834: A4 SS 347 LDY COL 
Was: Bil 64 348 LDA (BASE),Y 
W838: 49 Ba 549 EOR #82 
MBSA: 91 64 kei bor] 4 STA (BASE), Y 
WB83C: AC FC de 351 MYVBIL LDY KEYREG 
Za3F:s Ca CZ Lo = CPY #%#C2 
W841: Ba 36 953 BCS XITV 
W843: AI FF oo4 LDA #¢FF 
“845: 8D FC 22 359 STA KEYREG 
~848: BO F7 12 bei ber] = LDA KTBL,Y 
M848: CQO FF oo7 CMP #$FF Atari key 
@84D: Dd aS wu BNE KEY1 
MB4F:; 22 14 1E 359 JSR NOKEY 
@BSe2: Fa 25 S62 BEG XITV 
@as4: C9 Da S61 KEY1 CMP #$DZ 
@BS6: 92 We wee BCC KEYe 
4858: 29 22 S63 AND #22 
“Z85A: 85 68 S64 STA CAPS 
“BSC: 124 1B S65 BPL XITV 
@BSE: AB S66 KEYe TAY 
ZBS5F: 29 DF G7 AND #$DF 
@861: C9 Cl 768 CMP #"A 
M863: 92 28 969 BCC KEYS 
@665: C9 DB o72 CMP #"Z+1 
YBE7: Ba 24 o71 BCS KEYS 
2869: 98 a72 TYA 
ZBEA: 45 68 973 EOR CAPS 
@8eC: AB 374 TAY 
ZBED: 98 575 KEYS TYA 
@B6E: A4 DA S76 LDY KIN 
2874: 99 BA 34 S77 STA KBUFF,Y 
@873: EG Da 378 INC KIN 
Wa75: 14 a2 979 BPL XITV 
ASB77: 26 Da 28a ASL KIN 

379: 4C Ge E4 81 XITV JMP XITVE 
w8e * 


FOS HK KHER KEE EKER KEE EEERE REE 
@a87C: A4& SS 384 DOCUR LDY COL 
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at) 


38S 
w86 
387 
988 
389 
a9 
sol 
992 
393 
394 
w95 
I96 
ao97 
398 
399 
74174) 
611 
602 
623 
614 
625 
GE 
627 
628 
629 
614 
611 
612 
613 
614 
615 
616 
617 
618 
619 
62a 
621 
622 
23 
Biz 4 


625 


VSET 


STWW 


% 
SWRITE@ 


SWRITE 
% 

VOFF 
MWW 

% 

% 


HVSAVE 


HSAVE 


GLCTL 
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LDA 
STA 
EOR 
STA 
L.DA 
STA 
SEC 
ROR 
RTS 


LDX 
STX 
STX 
STX 
LDA 
RTS 


LSR 
LDA 
STA 
L.DX 
RTS 


STA 
ASL. 
ASL. 
ROL. 
ROL. 
AND 
TAY 
L.DA 
EOR 
LDY 
STA 
RTS 


RES 
RTS 
RES 
DFB 


LDA 
STA 
L.DA 
STA 
RTS 


DFE 


Page: 14 


(BASE), Y 
Tos 

#$80 
(BASE), Y 
#$30 
TIME 1 


RDFLG 


TCOL. 


CR, EOT, 1, $1A, $1E, $1F, $AB, SAD, SAE, SAF, $B2, $e 
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J 636 PAGE 
637 * 
638 *** FILE -—- PRINT 
639 * 


EG HHH HEHE EEK KHER EERE 
641 % Printer one pagers * 
ELS HHH KEKE HEHEHE KEEE 


643 * 
ag9aa; 22 SC ac 644 HFCOM JSR CLRL 
2923; 86 E 645 STX TEMP 
29a@5: 86 DF 646 STX TEMP1 
a9a75; 38 647 HFC1 SEC 
@3928: 66 AQ 648 ROR HFMODE 
aoaA: 40 CS 17 649 JMP DELBUFI 
B54 * 
651 5 pfne one page printer 
652 * 
Z32D: 68 653 LCR PLA pfne 9 
A2I2E: 68 654 PLA 
Z29aF: 22 Bi WE 655 JSR UDO print underlines 
@912: AS El 656 LDA TEMPS 
27914: Da as 657 BNE PRCR 
2916: 22 SC 21 658 BLPRCR JSR BLANK 
2919: 24 DS 659 PRCR BIT MODE 
@91IBs 12 aS 6612 BPL PRCRI 
(91D: 2a 74 21 661 JSR SCROUT 
~924: 4C GS i 662 PRCR1 JmMP CRDO 
663 * 
2923: 22 79 wg 664 BCHANGE JSR BLDCH1 pfne 2 
AVI2E: A iz 665 BHANDLE LDY #2 
A228: 24 392 666 BIT BOLD 
Ww92A: 324 19 667 BMI BUHDL 
ag2C2 AB m4 668 BOFF LDY #4 
Q92E: 24 45 ag 669 JSR BUHDL 
@9S1i: 40 SS 1a 672 JMP ESCDO 
671 * 
W934: AS 9C 672 UCHANGE LDA UNDLINE pfne 3 
W936: 49 BZ 673 EO0R #82 
@938: 85 9C 674 STA UNDLINE 
ZISA: AA BG 675 UHANDLE LDY #8 
@I3C: 24 9C 676 BIT UNDLINE 
AISEs Sa as 677 BMI BUHDL 
@2944: 22 Bl We 678 UOFF JSR UDO 
2943s Aw ac 679 LDY #12 
2945: 24 Ds 682 BUHDL BIT MODE 
W947: 324 36 6481 BMI PRTS1 
2949: BO 14 a5 682 BUHDLi LDA BUSS,Y 
2940; C9 FF 683 CMP ##FF 
Q294E: FQ 2F 684 BEQ PRTS1 
“95a: 22 67 21 685 JSR COUT 
“4953: C8 686 INY 
354: Dt FS 687 BNE BUHDLi (bra) 
688 * 
“956: AM 12 689 SUPR LDY #16 pfne S 


a3958: Da EB 692 BNE BUHDL 
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4 
DS 


a7 


a1 


ag 


1F 


15 


a, 


15 


az 


* 


LDY 
BNE 


JMP 
LDX 
L.DA 
JMP 
INY 
STY 
LDA 
BIT 
BMI 
JMP 
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#24 
BUHDL 


RDKEY 
PAGEN 
PAGEN+1 
PRDNF 


YREG 
(BPTR), Y 
MODE 
PRTS1 
COUT 


5; gline one pager 


% 
BLDCH 


BLDCH1 
PRTS1 
¥ 


PUDL 


UNDL 
UDL 


* 


- CDO 


* 
PSPEC 


PSPEC1 


PSPECe 


SPaie 


PSP7 


LDA 
JSR 
LDA 
EOR 
STA 
RTS 


LDA 
DFB 
LDA 
INC 
LDY 
STA 
RTS 


DEC 
RTS 


JSR 
LDX 
CMP 
BEQ 
DEX 
BPL 
JMP 
LDA 
PHA 
LDA 
PHA 
RTS 


print special 


TXA 
CLC 
ADC 
BCC 
TXA 
JSR 


#2 
UDL. 
BOLD 
#$B2 
BOLD 


CHRCNT 
(BPTR),Y 


CENTER 


AUX, X 
PSPEC2 


PSPEC1 
DECTXT 
#) POPA1= 


PSPSH, X 


one pagers 
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pfne S 


pfne 6 
pfne & 


pfne 7 
for return 


print fne 2 


print fne 9 


print frne & 


ignore if not found 


another one pager 


print fne 4-7 
start at 4 


(bra) 
X=7 
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ac 


22 


41 


41 


re) 
19 
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746 JSR GETNUM 

747 JSR UDL 

748 JMP SKSP 

749 PSP4 BIT COND conditional 
7a BMI PCONDe x=4 an entry 
731 BVC PCOND1 

752 LDA #2 

753 DFE #2C 

754 STCM LDA #47F 

755 STA COND 

756 RTS 

757 PCOND1 LDA MODE], X 

758 STA CSV, X 

759 DEX 

762 BPL PCOND1 

761 STX COND 

762 INX 

763 STX PMODE 

764 RTS 

765 PCOND2 LDA CSV, X 

766 STA MODE], X 

767 DEX 

768 BPL PCONDe 

769 JSR CLRL 

77a BEG STCM 

771 * 

772 PSPS PLA file link 
773 PLA X=3 
774 SEC 

775 PRTS2 RTS 

776 * 

777 PSPS CLC 

778 DFB #B2 (bes) 
779 PSPS SEC 

78a ROR TEMP1 

781 BIT MODE 

782 BVC PSP6E2 

783 JSR GETNUM 

784 JSR TXTPTR 

785 DEC MODE1 

786 LDY VAL 

787 CPY FCNT 

788 BEG PSP61 

789 BCC PSP61 

734 LDY FCNT 

7391 PSPE6i1 LDA PARAM, Y 

792 STA TXT 

793 LDA PARAMN+$22, Y 

794 STA TXT+1 

795 BIT TEMP1 

736 BMI PRTS& 

797 JSR SKSP 

798 PSPG6Ge JMP DECTXT 

799 * 

8@a PCLOSE 
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Val) 


28 


1F 


_ 


23 


29 


ZA 
ac 


ac 
ac 


Vibe) 


ac 
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B47 
B48 


855 


% 
5 
% 


FLINK 
FLINK1 


FLINKe 


PEOT 1 


PEOT2 


* 
PEOP 


PEOPL 
* 


PCR 


* 
GETFTR 


SETP 


LBY 
JSR 
BIT 
BMI 
JMP 


LDY 
JSR 
STA 
INY 
CMP 
BEG 
CMP 
BNE 
LDA 
STA 
JSR 
JMP 


PLA 
PLA 
JSR 
DEC 
BEG 
JSR 
JMP 
BIT 
BVC 
LDA 
STA 
JSR 
BCS 
BCC 


LDA 
BEG 
JSR 
JMPp 


JSR 
JMP 


JSR 
INC 
JSR 
BIT 
BMI 
DEC 
LDA 
BIT 
BPL 
SEC 
SBC 


#32 
BUHDL 
MODE 
PRTS& 
CLOSEP 


lnend one pager 


#2 
FETCH 
IN, Y 


#E0T 
FLINK2 
#CR 
FLINK1 
#CR 
IN-1, Y 
MLOAD 
CLRL 


PEOP 
STATUS 
PEOT2 
PRST 
WARMP 
MODE 
PCLOSE 
STAT 1 
STATUS 
RFETCH 
PCLOSE 
PEOT1 


CHRCNT 
PEOP1 
PCR 
EOPAGE 


LDO 
CLRL. 


HFCOM 
BPTR+1 
GHF 

FFLAG 
SETP 

FFLAG 
PL. PGE 
FFLAG 
SETP1 


FTSP 


3; full ve 


sec fre 3 


sec fre 4 


sec func 


sec fre 9 


sec fre 6 


rtical 


a 
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85 
& 12) 


ra) 
Peal 
38 
66 
612) 


Pe) 
a 
a 
Cg 
Fi 
cg 
FiZ 
cg 
Dw 
4C 
Az 
DD 
Fa 
CA 
1a 
au 
86 
eu 
1% 
AG 
Fa 
95 
Da 
85 
AS 
85 
4C 


rea) 
a 
FQ 


22 
46 
Poa 
AS 


ag 
ac 


ZB 


15 


Fa] 


ZA 


iD 
@D 


ia 


ZD 


856 


882 


302 


914 
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SETPi STA WP 
RTS 
x 
GETHDR JSR HFCOM 
JSR GHF 
SEC 
ROR HFLAG 
RTS 
x 
RST JSR RESETA 
DEFAULT JSR RESETA 
GETFMT JSR FETCH 
CMP #"c 
BEQ DEFAULT 
CMP #"r 
BEQ RST 
CMP #CR 
BNE GTFMT1 
JMP FHANDLE 
GTFMT 1 LDX #13 
GTFMTe CMP FTABLE, X 
BEQ GTFMTS 
DEX 
BPL GTFMTZ 
BMI GETFMT - 
GTFMTS STX XREG “7 
JSR GETNUM 
BPL. GETFMT 
LDX XREG 
BEQ GTFMT4 
STA TOPMAR-1, X 
BNE GETFMT 
GTFMT4 STA PAGEN 
LDA VAL+1 
STA PAGEN+1 
JMP GETFMT 
JAE EEE HEE 
* Combination Printer * 
* driver for LPA V4.8 * 
HREM EEE EEE EEK KH KH HEHEHE 
* 
; PTYPES for printer 
3; @-other, $7F incremental 
; $82 is C737/739 
3 IPT is conditional flag 
# 
COLDP JSR PCOLD 
WARMP JSR PWARM 
BEQ PMAIN 
* 
PMAINZ JSR DOFUNC 
PMAIN LSR HFMODE 
JSR INEPTR 
LDA BOLD 
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sec fne 7 


sec fne & 


ie 


for page number 


(bra) 


(bra)??? 


out of hd/ft made 
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ZB 


12 


as 


911 
912 
913 
914 
915 
916 
= BW A 
918 
919 
922 
921 
922 
923 
924 
925 
926 
b= ar 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
942 
941 
942 
943 
944 
945 
946 
947 
948 
949 
952 
951 
952 
953 
954 
955 
956 
957 
958 
959 
961 
961 
962 
963 
964 
965 


PMAINI 


PMAINe 
PMAING 


PMAIN4 


PCOUT 


PCOUT1 


PCOUT2 


PCOUTS 
PCOUT4 


* 
PABORT 
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PMAIN1 
PMAIN4 
GBE 

SBE 
CHRCNT 
CHRCNT 
(BPTR), Y 


ESCDO 
NSPACE 


cout 
UNDL INE 
PCOUT4 
BSSC 
PCOUT4 
PTYPE 


PCLOSE 


Page: 


re 


@ 


double collect 
garbage collect 


cent undl by # 
other uses uct 


doa bold spacing 


back by char? 
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6C 


Z4 
32 
Az 
BS 
95 
CA 
if 
A4 
AS 
=D 
ZA 
AQ 
2A 
91 
1 
rea) 
2a 
Ba 
a 
= 
Da 
24 
3a 
Az 
38 
62 
ra) 
Az 
BG 
Fi 
cg 
92) 
24 
12 
i 
Da 
Cé 
A 
Da 
ml) 
EG 
A4 
91 


a 


Fi 
rea) 
Ba 
62 
Az 
DD 
Fil 
CA 
1m 


aS 


1a 
LE 


Li 


1F 


ia 


12 


* 
SPSAVE 


SPSV1 


SPSVe 


GLINE@ 
GLINE 


PRTSS 
ENDDB 


GLINE1 


GLINE2 
GLINES 


CONTROL 
CTRL 1 


JMP 


BET 


LDA 


LDY 


JSR 
JSR 


JSR 


CMP 


JSR 
INC 
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(BRKYV) 


HF MODE 


#2 


(BPTR), Y 
GLINE 
LNCTRL 
CHECK@ 
PABORT 


CONTROL 
HF MODE 
GLINES 
#" 

GLINES 


(BPTR),Y 
#5P 
SPSAVE 
CHKLEN 
GLINE 


#8 
CTRLS, X 
CTRL2 


CTRL 
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(bra) 


diff on Apple 
in data base? 


CR exit 


print fne & (page) 


exit ce line too lang 
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re) 
EW 
9 
2 


Be 
4 
AB 


38 
aa 


1E 


aS 


Va} 
ZB 


aS 


ZA 


aS 


LETTER PERFECT Atari V6.4 Page: #2 
Laei BMI GLINE 
1@22 CTRLe CPX #4 exit problem? 
WES BCC GLINE®@ no, da func 
1a24 RTS 

lifes * 

LDZEE HHH HH HHH HHH EHH HEHEHE EH 
1@27 * Printer Subreutines * 
LAER KEKE HHKRHHEEKEEREHHHKH HEH 
1@2z9 * 

1232 SETWM LDA TIND 
1asi CLG 

1a3e ADC MARGIN 
12433 STA WPRAR 
1234 LDA WIDTH 
1435 SEC 

1436 SBC TIND 
1437 SBC TIND 
1238 STA WWD 

1439 JSR PMUL 
1242 STX CWD+i 
1241 STA CWD 

1242 RTS 

1243 % 

1244 RESETA LDX #2 

1245 STX HFLAG 
1246 STX FFLAG 
1247 STX PAGEN+1 
1248 INX 

1249 STX PAGEN 
125@ RESETAZ LDX #12 

1451 RESETAIL LDA NORM, X 
1as2 STA TOPMAR, X 
12353 DEX 

1254 BPL RESETAL 
12355 RTS 

1u56 * 

1457 PRST JSR RESETA 
12458 FHANDLE JSR SETWM 
12359 LDA FONT 
1m62 AND #3 

1461 STA FONT 
1m62 BIT PTYPE 
1263 EVS FHi 

1264 LDA #2 

1f@65 FH1 STA FSP 

1466 SETF JSR SETP 
1467 BIT MODE 
1268 BMI PRTS4 
1269 LDA FONT 
1272 ASL. 

1271 ASL. 

1m7z ASL. 

1473 TAX 

1474 FHe LDA FONT, X 
12475 CMP #¢$FF 
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-1lD: F@ a6 
@CiF: 22 67 
“aCze: EB 
Qc23: DY FS 
aces: 6 
“C26: 24 AS 
a@l29: CI W7 
“Cee: DA w4 
aC2eD: C& DF 
acer: Sa as 
“C31: 22 BA 
@C34: 28 75 
MC37; 24 Ba 
aCSA: AB FC 
a@C3C: AS 98 
QCSE: 91 B4 
aC4A4: C8 
aC41: AS 99 
MC43: 91 B4 
a@C45: C8 
YC46: AS 93 
@C48: 24 DF 


a@c4c: 98 
“™34D: 91 B4 
_C4F: C8 
acSs@: AS Ez 
@cSZ: 4A 
2C53: 25 DF 
@cS5: 91 B4 
@cS7: Ca 
ache: aS 9A 
CSA: 91 B4 
WCSC: AZ F4 
@CSE: 22 66 
aC61i: 86 9C 
@CE3: 6B 
@C64: AZ F7 
wc6G: ADI aa 
@C68: 95 9C 
ac6éA: EB 
@C6&B: Da FR 
ZOD: AZ wa 
@C6F: BA 
ac7a: 9D waa 
@C73: EB 
C74: Da FA 
_&@C76: 62 
aC77: 22 Ba 
aC7A: #2 99 
@c7D: 2a Fa 


1F 


ac 


ae 
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1276 BEG PRTS4 
1277 JSR COUT 
1278 INX 

1279 BNE FHe 

1782 PRTS4 RTS 

1481 

1282 GHF JSR FETCH 
1283 CMP #FTR 
1284 BNE GHFi1i 
1285 DEC TEMP1 
1486 BMI GHFe 
1287 GHF1 JSR DECTXT 
1288 GHFEe JSR GLINE 
1289 JSR PUDL 
1292 LDY #FC 
1m91 LDA PWD 

1292 STA (BPTR),Y 
1293 INY 

1294 LDA PWD+i1 
1295 STA (BPTR),Y 
1296 INY 

1297 LDA CENTER 
1298 BIT TEMP1 
1499 BPL. GHFS 
Liga TYA 

1121 GHFS STA (BPTR),Y 
11%2 INY 

11@3 LDA TEMP 
1124 LSR 

115 ORA TEMP1 
1146 STA (BPTR),Y 
11247 INY 

1148 LDA PRNCNT 
112493 STA (BPTR),Y 
111@ 5 

11412 CLRL LDX #$F4 
11i1e2 JSR NLINE@ 
1113 STX UNDLINE 
1114 RTS 

1115 

1116 NLINE LDX ##F7 
1117 NLINE@ LDA #2 

1118 NLINE1 STA UNDLINE, X 
i119 INX 

112 BNE NLINE1 
1121 CLEAR LDX #1 

11lee TXA 

1123 CLR1 STA IN, X 
1124 INX 

1125 BNE CLRi 
1126 RTS 

1127 

1128 LDO JSR PUDL 
1129 JSR CINDT 
113a JSR LPRINT 


Page: 23 


left/rt only ist char 


$FE 
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AS 
FiZi 
18 
65 
85 
AS 
38 
ES 
85 
m2) 
AQ 
85 
AS 
AS 
18 
65 
85 
24 
ia 
88 
Fi 
mz 
AS 
CS 
92 
24 
12 
Ae 
Pa) 
12 
A 
85 
24 
12 
a4 
12 
2a 
A4 
2 
a4 
12 
A4 
Ag 
Pe] 
2a 
2 
24 
12 
AS 
CS 
De 
AS 
CS 
Fi 
92 


i) 


aD 


ag 


QE 


aD 
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Lisi 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
114 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
115 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1162 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1172 
1171 
ilve 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1184 
1181 
1182 
1183 
1184 
1185 


LEND 


LEND1 


LEND& 


EDLP 


EQLP1 


FOK 


FOK1 


FOKE 


LDA AMAR 
BEQ LEND1 
CLC 
ADC MARGIN 
STA MARGIN 
LDA WIDTH 
SEC 
SBC AMAR 
STA WIDTH 
JSR SETWM 
LDA #2 
STA AMAR 
LDA LSPACE 
TAY 
Le 
ADC LINE 
STA LINE 
BIT PMODE 
BPL LEND2 
DEY 
BEQ LENDe 
JSR YOUTA 
LDA LINE 
CMP WP 
BCC PRTSS 
BIT COND 
BPL EOLPI 
LDX #4 
JSR PCOND2 
BPL. EOPAGE 
LDA #24 
STA LINE 
BIT PMODE 
BPL FOKI 
BIT FFLAG 
BPL FOK 
JSR PRFOOT 
MAR 
JSR YOUTA 
BIT MODE 
BPL. FOK1 
LDY WDOK 
LDA #"- 
JSR YOUTO 
JSR PROR 
JSR INCPGN 
BIT PMODE 
BPL. PRTSS 
LDA PAGEN+1 
CMP MAX+1 
BNE FOK2 
LDA PAGEN 
CMP MAX 
BEQ FOKS 
BCC FOKS 


Page: £4 


cand print 
na, ge orn 
restore 


(bra) 


handle in tof 
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LE 


LF 


LETTER PERFECT Atari V6.a Page: £5 
1186 INC PMODE 
1187 JSR TNDTXT 
1188 JMP DECTXT na stop on last page 
1189 FOKS LDA STOP 
119% BNE USER 
1191 PRTSS RTS 

1192 EOPAGE BIT PMODE 
1193 BPL EOLPI 
1194 LDA LINE 
1195 BEQ PRTSS 
1196 LDA WP 
L197 SEC 

1198 SBC LINE 
1199 TAY 

1222 BEG EOLPIL 
1221 JSR YOUTA 
1202 BEG EOLPI 
1243 * 

12244 PCOLD 

1245 

1226 

12247 USER 

1248 BMI 

1229 JSR 

121% LDY 

e241 JSR 

1212 USER JSR 

Leis LDY 

1214 JSR 

1215 USER2 JSR 

1216 EOR 

1217 BNE 

1218 JMP 

1219 * 

12@22@ PWARM JSR 

Lle21 STX 

1222 STX 

1223 STX 

12e4 STX 

1225 JMP 

1226 * 

1227 INBPTR LDA #IN 
1228 STA BPTR 
1229 LDA #)>)IN 
1234 STA BPTR+1 
L231 RTS 

1232 * 

1233 TOF BIT HFLAG 
1234 BPL TOFI 
1235 LDY HDSP 
1236 

1237 Y LINE 
1238 TOF1 BIT PMODE 
1239 BMI TOFe 
1242 LDA PAGEN 
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JSF: CS B6 1241 CMP MIN 


@DGis AS AD 1242 LDA PAGEN+1 
@D63: ES B7 1243 SBC MIN+1 
“DES: 92 31 1244 BCC PRTSG 
@DE7: Ce A 1245 DEC PMODE 
MDG69: £2 16 29 1246 TOFe JSR BLPRCR 
@D6EC: 22 2B WC 1247 JSR SETF 
ZDEF: A4& 82 1248 LDY TOPMAR 
2D71: 88 1249 DEY 
“D7zH: Fa was 1252 BEQ TOFS 
@D74: 22 86 aD 1251 JSR YOUTA 
WD77: 24 AG 1252 TOFS BIT HFLAG 
@O79: 12 1D 1253 RPL PRTSGE 
Q@D7B: 22 CS 17 1254 JSR DELBUF1 
@D7E: 24 3D AE 1255 JSR PRHF 
ZDBis A4 89 1256 LDY HDSP 
2D83: BS 1257 DEY 
@D84: Fa 12 1258 BEQ PRTS6G 

1259 * 
ZD8G6: 22 16 29 126% YOUTA JSR BLPRCR 
ZDa8a9: 88 1261 DEY 
“DBA: Da FA 1262 BNE YOUTA 
@DaC: GE 1263 RTS 

1264 * 
@DAaD: AD DF 1265 YOUTL LDA #"_ 
“™“OBF: 2C 1266 DFB #2C 
O34; AD 22 1267 YOUTS LDA #SP 
“D932: 22 67 21 1268 YOUTO JSR COUT 
@D9S: 88 1269 DEY 
aD9G: Dw FA 1272 BNE YOUTO 
@D9B: Gi 1271 PRTSG RTS 

1272 * 
@D99: AS 93 1273 CINDT LDA CENTER 
“O9B: 12 FB 1274 BPL PRTS6 
ZO9D: 4A 1275 LSR 
2D9E: 8 1276 PHP 
Q@D9F: 28 CD @E 1277 JSR GSPT 
aDAz: Ba aC 1278 BCS CINDTe 
ZDA4: AS AS 1279 LDA WWD 
ADAG: 38 12682 SEC 
@DA7: ES 9A 1281 SBC PRNCNT 
ZDAD: 28 1262 PLP 
@DAA: 92 m1 1283 BCC CINDT1 
“DAC: 4A 1284 LSR 
@DAD: 85 96 1285 CINDT1i STA INDENT 
ZDAF: Gla 1286 RTS 
@DBA: AS AA 1287 CINDTe LDA CWD 
“DBE: 38 1288 SEC 
Q2DEBS: ES 98 1289 SBC PWD 
“DEBS: 85 96 1291 STA INDENT 
AQDB7: AS AB 1291 LDA CWD+1 

9B9: ES 99 1292 SBC PWD+1 

“VDBB: 28 1293 PLP 
2DBC: 92 WS 1294 BCC CINDTS 


@DBE: 4A 1295 LSR 
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PEF : 
A@DC1s 
ADCS: 


@DC4: 
“DCE: 
@DCS: 
“DCE: 
ADCD s 
DCF : 
ADDF: 
ZDD4 s 
ADDG s 
WDD7 : 
ADDS: 


ADD: 
“DDE: 
A@DDD : 
ADE s 
ADES: 
ADEE : 
ADES: 
ADEA s 
ADEC s 
“OED s 
EF : 
ADF 
@DF4: 
2DFE s 
ADFO: 
WDFE 
@DFD: 
EZ 
ME 
WE 4, s 
MEAT s 
AES y 
MEZA s 
QEWC s 
MED s 
EMF s 
@E11% 
ME13: 
AEL4: 
QE1iS: 
@E17: 
MELB: 
MELA: 
WELC: 
AQE LE: 

Ee x 
WEZ2: 
QEZ4 : 
@E2S : 


66 96 
85 97 
6 


AS Al 
Da AS 
ea Sia 
AS 91 
85 92 
22 47 
24 A 
3a a3 
68 

68 

612) 


AS AS 
85 94 
ea 2c 
a2 42 
2a CD 
Ba 18 
AS 96 
65 A4 
AB 

FZ 3 
ea 92 
24 9C 
12° 3 
2a 3A 
24 92 
1” 9B 
4C GA 
AS A4 
F@ ap 
22 S34 
18 

65 96 
85 96 
BA 

65 97 
85 97 
Ag FF 
38 

c& 

AS 96 
AA 

EQ 7 
85 96 
AS 97 
ES wa 
85 97 
Ba FQ 
98 

Fa 23 


aD 


aD 


ag 


iE 


4D 


A) 


Vibe) 


1E 
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1296 
1297 
1298 
1299 
13a 
13@1 
132 
1343 
13@4 
1305 
1326 
1327 
1328 
1329 
1314 
1311 
1g1e2 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1324 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1332 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1342 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 


135 


CINDTS 


IND 


INDi 


INDE1 


INDé 


INDS 


IND4 


ROR 
STA 
RTS 


LDA 
BNE 
JSR 
LDA 
STA 
JSR 
BIT 
BMI 
PLA 
PLA 
RTS 


LDA 
STA 
JSR 
JSR 
JSR 
BCS 
LDA 
ADC 
TAY 
BEQ 
JSR 
BIT 
BPL 
JSR 
BIT 
BPL. 
JMP 
L.DA 
BEG 
JSR 
CLC 
ADC 
STA 
TXA 
ADC 
STA 
LDY 
SEC 
INY 
LDA 
TAX 
SBC 
STA 
LDA 
SBC 
STA 
BCS 
TYA 
BEG 


INDENT 
INDENT+1 


LINE 
JL1 
TOF 
BOLD1 
BOLD 
INBPTR 
PMODE 
IND 


FSP 
NSPACE 
BOFF 
UOFF 
GSPT 
IND= 
INDENT 
WMAR 


IND1 
YOUTS 
UNDLINE 
INDE1 
UHANDLE 
BOLD 
PRTSG 
UHANDLE 
WMAR 
INDS 
PMUL 


INDENT 
INDENT 


INDENT+1 
INDENT+1 
#$FF 


INDENT 


#7 
INDENT 
INDENT+1 
#12 
INDENT+1 
IND4 


INDS 
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now two bytes 


carry is clear 


by 12@ dats always! 


number of spaces 
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20 
2m 
4c 


22 
EG 
Aa 
88 
Fa 
rat) 
Az 
BS 
95 
CA 
1% 
A 
84 
B4 
B4 
84 
Bl 
85 
BB 
Bl 
85 
88 
Bl 
85 
88 
Bl 
85 
88 
Bi 
85 
24 
pe) 
Az 
AS 
DD 
AS 
FD 
Ba 
CA 
Da! 
38 
BA 
65 
85 
E& 
8A 
2g 
18 
65 
85 
92 


aD 


at) 


28 


1E 
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1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1362 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1372 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1382 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1392 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1422 
14201 
1402 
1443 
1414 
14245 


INDS 


* 
PRFOOT 


PRHF 
PRHF 


PRHF 1 


PRHF = 


JSR 
JSR 
JMP 


JSR 
INC 
LDY 
DEY 
BEQ 
JSR 
L.DX 
LDA 
STA 
DEX 
BPL 
LDY 
STY 
STY 
STY 
STY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
BIT 
BYVC 
L.DX 
LDA 
CMP 
LDA 
SBC 
BCS 
DEX 
BNE 
SEC 
TXA 
ADC 
STA 
INX 
TXA 
JSR 
CLE 
ADC 
STA 
BCC 
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YOUTS 
ESCDOz2 
INDi 


DELBUF 1 


SPST, X 


BOLD 
UNDLINE 
INDENT 
INDENT+1 
(BPTR),Y 
PRNCNT 


(BPTR), Y 
TEMP 1 


(BPTR),Y 
CENTER 


(BPTR),Y 
PWD+1 


(BPTR), Y 
PWD 


PRNCNT 
PRNCNT 


PMUL. 


PWD 
PWD 


PRHFS never aver 624 
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wD 
174) 8) 


ar 


74) 8) 


4) 8) 


aS 


We, 
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PRHF 3 


PRHF4 


PRHFS 


UDO 


* 
OTPRNT 


OTPT1 
OTPTe2 


INC 


JSR 


LDA 


RTS 


BIT 


RTS 


CLC 


RTS 


LDA 


LDX 
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SPST, x 
CENTER, X 


PRHFS 


PMODE 
PRTS7 
MODE 
PRTS7 
BSSC 
PRTS7 
UCNT 
PRTS7 
YOUTO 


# times to dea 


CHRCNT 
opsse2 
IN, X 
OTPTS 
#1 
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=F7: DM Fe 1461 BNE OTPT2 
MEFS: C& DF 1462 DEC TEMP1 
@EFB: Da m4 1463 BNE OTPTS 
YEFD: EG DF 1464 INC TEMP1 
@EFF: D2 EA 1465 BNE OTPT2 
MFA: 224 El 14 1466 OTPTS JSR INSSP 
@FQa4: EB 1467 INX 
ZFaS: C& DF 1468 DEC TEMP1 
@Fia7: Dd Ee 1469 BNE OTPT2 
2F29: 40 FS @F 1472 PPLNK JMP LPRT@ 
@Fac: Ce EA 1471 OPSSe DEC TEMP2 
QFW@E: SA F9 1472 BMI PPLNK 
@Fida: 24 92 1473 BIT JFLAG 
QFile: 1a DS 1474 BPL OTPT1 
@FPi4: 32 we 1475 BMI ROPT1 (bra) 
@F1lGé: C6 92 1476 ROPT DEC JFLAG 
2Fi8: AG IB 1477 ROPT1 LDX CHRCNT 
QFiAs CA 1478 ROPT2 DEX 
@FiBs Fa EF 1479 BEQ OPSS2 
ZFiDd: BD @a 46 1482 LDA IN, X 
Q@Feda: Fa wc 1481 BEG ROPTS 
aFee: C9 a1 1482 CMP #1 
@Fe4: Da F4 1483 BNE ROPT2 
YF2e: C& DF 1484 DEC TEMP1 
@F28:s D2 a4 1485 BNE ROPTS 
““F2A: EG DF 1486 INC TEMP1 

F2eC: Da EC 1487 BNE ROPT2 (bra) 
Q@FPee: 22 E1 14 1488 ROPTS JSR INSSP 
@F3i:s C& DF 1489 DEC TEMP1 
@F33: Fa D4 1494 BEG PPLNK 
QF 3S: CA 1491 DEX 
2F36: Dd Ee 1492 BNE ROPT#2 
@FS8: Fa De 1493 BEQ OPSSe (bra) 

1494 * 

Q2FSA: 22 C4 @D 1495 JPRINT JSR JLSUB 
QF3D: AS Be 1496 LDA JUSTIFY 
@F3F: Fa C8 1497 BEG PPLNK 
Q@F4il:s AS AS 1498 LDA WWD 
Q@F43: 38 1499 SEC 
QF44:; ES 9A 15aa SBC PRNCNT 
@F46: 85 DF 1521 STA TEMP1 
QF48: £24 De 152 BIT MODE 
ZF4A: Si BF 1543 BMI OTPRNT 
MF4C: AD 24 25 1504 LDA PTYPE 
Q@F4F: Fa 8A 15a5 BEG OTPRNT 
F351: 32 18 156 BMI CPRINT 
@FS3: AS AS 1527 NPRINT LDA FSP 
@FS5: 18 1528 CLC 
@aFSG: 69 A 15a9 ADC #12 
F358: 85 E4 151i STA MTMP+1 
QF SA: A4& DF 1511 LDY TEMP1 

*SC: Fi AB 1512 BEQ PPLNK 
wFSE: 22 68 1E 1513 JSR MULT 
“aFG1: AS 1514 TAY 


@FG62: 84 DF 1515 STY TEMP1 
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Ew’ 
Da 
38 
Bl 
AS 
38 
ES 
83 
AS 
ES 
Da 
AS 
Fi 
38 
Az 
E& 
ES 
Ba 
8G 
AS 
18 
65 
CD 
Ba 
AS 
85 
AQ 
A 
Ze, 
ZA 
38 
AA 
ES 
92) 
AR 
EG 
BA 
88 
DZ 
85 
18 
65 
CS 
Fi 
91 
EG 
Da 
AS 
38 
ES 
ES 
85 
Ag 
84 
C8 


ibe 
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1516 CPX #2 
1517 BNE PPLNK 
1518 SEC 

1519 BCS JPi 
i522 CPRINT LDA CWD 
1521 SEC 

1See2 SBC PWD 
1523 STA TEMP1 
1524 LDA CWD+1 
1525 SBC PWD+1 
1526 BNE LPRT@ 
1527 LDA TEMP1 
1528 BEQ LPRT@ 
1529 SEC 

1534 LDX #12 
1531 JPi INX 

1532 SBC PRNCNT 
1533 BCS JPi 
1534 STX TEMPe 
1535 JPe LDA TEMP2 # dots per char 
1536 CLC 

1537 ADC FSP 
1538 CMP MXSPC 
1539 BCS LPRT@ 
1544 LDA TEMP1 
1541 STA TEMPS 
1542 LDA #2 
1543 LDY #8 
1544 JPS ASL TEMPS 
1545 ROL. 

1546 SEC 

1547 TAX 

1548 SBC TEMPe 
1549 BCC JP4 
1554 TAX 

1551 INC TEMPS 
1552 JP4 TXA 

1553 DEY 

1554 BNE JPS 
1555 STA COUNT 
1556 CLC 

1557 ADC TEMPS 
1558 CMP PRNCNT 
1559 BEQ JPS 
1562 BCC JPS 
1561 INC TEMP2 
1562 BNE JPe 
1563 JPS LDA PRNCNT 
1564 SEC 

1565 SBC TEMPS 
1566 SBC COUNT 
1567 STA LEN 
1568 LDY #$FF 
1569 STY TEMPi 
1572 INY 
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ar 


1a 


1a 


aD 


ZB 


ia 


ia 


iF 
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1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1582 
1561 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
159% 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1624 
1621 
16%2 
1643 
1624 
1625 
1626 
1627 
1628 
1649 
1614 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1622 
1621 
1622 
1623 
1624 
1625 


JPG 


% 
LPRINT 
LPRTd 
LPTHF 


LPRT 1 


LPRT& 


LPS 


LPRTS 


LPRT4 


STY 
JSR 
L.DX 
INX 
STX 
LDA 
REQ 
CLC 
ADC 
STA 
JSR 
JSR 
LDA 
CLC 
ADC 
STA 
JSR 
LDA 
STA 
INC 
BEQ 


JSR 
LDA 
STA 


LDA 


INY 


INC 


TAX 


TEMPS 
LPRT1 
FSP 


NSPACE 
COUNT 
JPG 


LEN 
LEN 
ESCDO 
LPRT1 
TEMPe 


FSP 
NSPACE 
ESCDO 
PRNCNT 
LEN 
TEMP 1 
LPRT1 


(BPTR), Y 
#5P 
LPRT4 
PCOUT 
MODE 
LPRTS 
PTYPE 
LPRT3 
NSPACE 
ESCDOZ 
TEMPS 
LPRT1 


#$A 
LPRT1 
#5P 
#2 
LPAS 
PGOS 
YREG 
LPRT1 


Page: Se 


chars to print 


flag set no stop 
printed characters 
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ZA 


2c 


15 


aS 
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1626 
1627 
1628 
1629 
1632 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1642 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1652 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
16593 
1662 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1672 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1682 


ESCDO 


ESCDOS 


ESCDOz2 


GETSP 


GETSP1 


* 
DOFUNC 


DOLEN 


DOLENI 


LDA 
PHA 
LDA 
PHA 
STY 
RTS 


BIT 
BMI 
JSR 
LDA 
JSR 
LDA 
JMP 


BIT 
BMI 
BIT 
BVC 
JSR 
LDA 
JSR 
LDA 
CLC 
ADC 
JMP 
TXA 
BEQ 
JSR 
TXA 
BNE 


LDA 
BEQ 
CLC 
ADC 
DFB 
LDA 
STA 
RTS 


LDA 
PHA 
LDA 
PHA 
RTS 


TAX 
CLC 
LDA 
BNE 
LDA 
DFB 
ADC 
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#) PPPGN 
ppos-z2, x 


YREG 


MODE 
PRTS8& 
ESCOUT 
ECHAR 
COUT 
BOLDC 
COUT 


MODE 
PRTS8& 
PTYPE 
PRTSS& 
ESCOUT 
ECHAR 
COUT 
NSPACE 


ZSP 
COUT 


PRTS8& 
ESCOUT 


ESCDO3 


#) GETFMT 


PFS1-3, X 


FONT 
DOLEN1 
CTBL-—SP, X 
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a4 
ia 
2c 
124 
2A 
2C 
3 
EG 
EG 
65 
85 
912) 
EG 
8A 
62 


2c 
3 
AS 
CS 
612 
AS 
CS 
AS 
ES 
6% 


AQ 
48 
BD 
48 
61 


Ce 
22 
AS 
38 
ES 
85 
Ba 
Ce 
612) 


86 
AG 
EG 
BD 
9D 
BA 
Fi 
CA 
E4 
Ba 
E8 
612 


a5 


1S 


1a 


Ze, 
Ze 
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1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1692 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1721 
1721 
17@2 
1783 
1724 
1745 
1726 
1727 
1728 
1729 
1712 
1711 
Lele 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1724 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
L723 
1732 
1731 
1732 
1733 
1734 
1735 


DOLEN2 


DOLENS 


% 
CHKLEN 


CHKLEN1 


% 
LNCTRL 


GBE 


PRTS9 
* 


INSSP 


INSSP1 
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BOLD 
DOLEN2 
BDW 
DOLEN2 


PTYPE 
DOLENe 
PRNCNT 
PRNCNT 
PWD 
PWD 
DOLENS 
PWD+1 


PTYPE 
CHKLEN1 
WWD 
PRNCNT 


CWD 
PWD 
CWD+1 
PWD+1 


#>)CDO 


PFS@, X 


PRNCNT 
GETSP 
PWD 


MTMP 
PWD 
PRTS9 
PWD+1 


COUNT 
CHRCNT 
CHRCNT 
IN, X 

IN+1, X 


PRTS9 


COUNT 
INSSP1 
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Page: 


35 
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1738 PAGE 

1739 * 

1740 *#* FILE --— STRING 

1741 * 

LF4 HERE KHHEE EEE KHKRHEHRHKRHKHREEE 

1743 * Key table for LP Atari * 

L744 HHH KHE HHH HERE KRKKREEE 

1745 * 

1746 KTBL DFB Od, ys Sy BIC, SID, "Ky OH, HG “OO, “Oo 
1747 DFE “a, CR, “is "=, “=, "vi, "Cc, $1E, $1F, "b 
1748 DFB ty ge NA Oy Ss 6, CIB, YS, “Ay 1 
1749 DFB we, oP, "., "rig 2, "Mm, "7, SFP, “vr, 

175a DFB "e, "y, $AA, "t, "Ww, "q, "9,4, "4, "7, $AB 
1751 DFB "A," 4,")>, "Ff, "h, "d,@, $D8,"g,"s,"a 
1752 * 

1733 DFE "L, "J, "s, $83, $A1, "K, "\, "*, "0,8, "P 
1754 DFE "U, CR, "I, "_, $7C, "V,@, "C, $1, $1A, "B 
1755 DFB "X%, "Z,"%, 9, "#, "& $1B, "%, $22, "! 
1756 DFB "LC, SP, "1, "N,@, "M, "?, FF, °R,@ 

1737 DFE "Ee, "Y, $AC, "T, "W, "GQ, "«(,@,"),"%, SAD 
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2 
tad 


C7 
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1758 DFR =", $AE, $AF, "F, "H, "D, 2, $E@, "G,"S, "A 
1759 * 

1764 DFB $C, $A, $62, $1C, $1D, $B, $1E, $1F, $F, 2, $1 
1761 DFB #15,CR,9, $1C, $1D, $16, 4,3, $1E, $1F, 2, $18, $1A 
1762 DFR $A4, 2, $AS, $AG, $1B, $AS, $AZ, 2, $78, SP 
1763 DFB 7D, $E,4,$D,$7E, $FF, $12, 4,5, $19, $B1 
1764 DFB #14, $17, $11, $A9, 2, $A1, $A7, $RE, $08 
1765 DFB $B, $B2,6,8,4, 2, $AZ, 7, $13, 1 

1766 ; 

WiSVAR CLL eS 


1768 
1769 
1774 


L7Zi1 
Life 


1773 


1774 
1775 


1776 


* epticon lines * 
HH HHH KE HK HE H E IE E HE HE HHE HE 


% 


SPOPT 
MTOP 


SPOF 


SNDEXTB 


ASC 


ASC 


DTZ 


ASC 


DFB 


"IMCG" 


u mMSa u 


"Tgneore, Match, Change, Quit" 


"More, Sel,Quit" must be followed by sndextb 


Q, $20, $42, $60, 2, $22, $42 
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AFL: Aa 1777 DFE @, 4, $42, $42, $82, $A, $AA 
1iFe@: @@ 2a 4a 


11iFS: Ca 42 6 


11F8: 22 1778 DFB @, $22, $40, $C2, $42, $62, 2 

11F9: 22 wa 42 

LIFC: ma 4a L773 DFR #24, 4, $42, 2, $42 
1782 * 

Ri 1/8i end pager a st 

aA 1782 * PFE bw 

LIFE: D@ BA 1783 PID ASC "P:" ae be 
1784 * — govt 
i785 3; Must be on page pw 
1786 3; 

12@a: CC D@ AW 1787 NID ASC "LP " 

1223: C4 C2 Aw 1788 DBID ASC "DE " 

12@6: DA DE D4 1789 PFID ASC "PRT" 
1794 


4 
1791 *#** MENU STRINGS *** 
LZ DE HHH KHER HEHEHE EHH 
1793 
1794 
1795 
1796 


MUST FIT ON ONE PAGE 
HLINE and PUTLNS (also MENU??) 
should include hline 


Kw ws KOK 


g 1797 
1209: CE EF A 


1212: 73 1798 NM DCI "No matches" 


121C: ES E4 1799 NUL ASC "Ne unlisted" 
121E: A@ D7 EF 
ig@@is Fe E4 7S 18@@ WRDS DCI " Words" 


122A: BA 2a 1821 OPSTR DCI “Option: " 
1@eC: AS AM EF 
12@2Fs: EG 18%2 NWSTR ASC "“# of" 


1236: 22 1823 WSTR DCI " word: " 
1237: Ce EF EF 

123A: 74 1824 BTDSK DCI "Boot" 
123B: Ce EC El 

123E: EE 6B 18@5 BKDK DCI "Blank" 


1246: EE 74 18a@6@ DOC DCI "Document " 
1827 


ae 


124E: SA 18@s SM DCI "Search: " 
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ES 
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1829 


1814 


1811 


1812 


1813 


1814 


1815 


1816 


1817 


1818 


1819 


1828 


1821 


1822 


1823 


1824 


1825 
1826 


1827 


1828 


1829 


183 


1831 


1832 


RM 


WMSG 


KFNC 


KFNC 1 


UNIT 


ISTR 


DENS 


DBNAME 


MIN 


LNAME 


DICT 


SNAME 


FSTR 


PSTR 


DSK 


DCI 


DCI 


ASC 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


ASC 


DCI 


Page: 


"Replace:" 
"Widths" 


“Rill « 


"ABCMNPT) :" 


" Units" 


“Insert " 


"Density" 


"Database" 
"Main" 
"| oad u 


"Eqit u 


“Dictionary” 
"Save" 
"File" 


"Print" 


"Change System" 


“ait 


"Append" 
"Lack" 

"Unloack" 
"Delete" 
"Format" 


u Disk" 
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2DD: Ce El ES 
t2E@: EB FS 74 1833 BKDSK DCI "Backup" 
12E3: CD El E9 
12E6: EE Aa CD 
12E9: ES EE 75 1834 DCI "Main Menu" 


L2ECs 
LOEF s 
12Fe: 
L2FS:% 
12F 6% 
LEFBs 
1EFE% DCI "Copies, pages<i,all>:" 


End of one page HLINE/PUTLNS 


LBA RHEE EEK KEKE EE 
1842 * Putilnm strings * 
LB4S KHER HEE RERKHEHHEH 
1844 ; 
134i: D3 ES Fe 
1304: ES ES GE 1845 PMNU DCI “Screen" 
13@7: D@ Fe ES 
13@A: EE F4 ES 
“34D: 72 1846 DCI "Printer" 
_3ME: C4 El F4 
131i: El Ee El 
1314: F3 ES aa 
1317: CD ES Fe 


131A: E7 65 1847 DCI "Database Merge" 

131C:. CD E1 E9 

iSiF: EE 1848 ASC "Main" 

1324: AM CD ES 

1323: EE 75 1849 MENU DCI " Menu" 
18524 * 

1325: AS DS AF 

1328: C4 AD SA 1851 DENSI DCI “tS7D).3" 

132B: BS ES EE 

132E: EV EC 65 1852 sps DCI "Single" 

1331: C4 EF FS 

1334: Ee EC 65 1853 DDS DCI “Double" 

1337: D4 EF F4 

133A; E1 6C 1854 TTL DCI “Total” 


133C: C4 EO E6 
133F: E6 ES Fe 
1342: ES EE 74 1855 DIFF DCI "Different" 
1345: DS EE EC 
1348: E9 FS F4 
13468: ES 64 1856 UWSTR DCI "Unlisted" 
A34D: AC AM Fi 
B5@: Fe ES Fs 
T353: FS A AS 
1356: 3A 1857 STRING DCI "“, press #:” 
1357: Aw Aa CC 


7 Feb-1984 LETTER PERFECT Atari V6.4 Page: 41 


1S6C: A 1858 LOGOS ASC "“ LETTER PERFECT<tm> " 
1346D: C&G Fe ES 
137@: ES BA 2a 1859 DFREE DCI "Free: " 


1379: EF Fe 79 1862 DLOGO DCI "Directory" 


1394: Fe 6D 1861 HDRi DCI "Place paper at top of form" 


13B4: 64 1862 NFMG DCI “The input file has been printed" 


13D3: E9 F4 2C 1863 DCI “Input the file toa merge, to exit," 


13E2@: CE DD ZE 1864 HDRe DCI "Press CRETURNI. " 
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1865 MOVID 


yw 


1866 
1867 
1868 
1869 
1872 


1871 


1872 


1873 


1874 


1875 


1876 


1877 


1878 


1879 


1882 


1881 


RETID 


ws es KOK 


ERR 


IOE 


FLE 


FNF 


FIL 


DFE 


BADT 


NOB 


NOD 


BFF 


BIU 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


DCI 


"' 4) or 3)? toa move cursor" 


"CRETURN] toa select" 


one page error strings 


"Errors " 


"i/o code: " 


"file locked” 


"file not found" 


"too large” 


"disk full" 


“bad name" 


"na buffer" 


"na delimiter" 


"buffer full" 


“buffer in use” 
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Fe 


2D 


a4 
ZA 


AG 
24 
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1882 OME DCI “out of memory” 

1883 RGE DCI “range” 

1884 DVE DCI “bad device” 

1885 NDMSG DCI "Ne dictionary" 

1886 FILE DCI " File:" 

1887 * 

1688 3; one page menu strings 

1889 ; 

18932@ MMC ASC "LEDSFPCR" 

1891 FMC ASC "ALUDFEBM" 

1892 PMC ASC "SPDM" 

1893 PDDID ASC "LJKDICT" 

1894 GLSTK DSS GLEND@Z, GLEND, GLBGN, GLEOL, GLBS, GLADV 

1895 DSS GLDBS, GLDEL, GLCAN, GLINS, GLINS, GLDEL, GLCAN 
1896 MSTKH DFB >LOAD-1, )EDITOR-1, >SPELL—1, >)FSAVE-1, )FILER-1 
1897 DFB >PRMN-1, >NEWDEV—-1, >EXIT 

1898 MSTKL DSS LOAD, EDITOR, SPELL, FSAVE, FILER 

1899 DSS PRMN, NEWDEV, EXIT 

191212 FSTKH DFB >MERGE-1, >FLOCK-1, >FUNLOCK-1 

1921 DFR )>FDEL-1,>FORMAT—-1, >FBUP—-1, >MAIN—1 

19%2 FSTKL DSS MERGE, FLOCK, FUNLOCK, FDEL, FORMAT, FBUP, MAIN 
1913 Ae DFR >SPRINT~1,>PRINT-1, > DBM-1, >MAIN-1 

1924 ‘PST L DSS SPRINT, PRINT, DBM, MAIN 

1945 * 

1926 MNID DFR MMN,FSTR, PSTR 

1927 MNSTRL DFB LNAME, FMNU, PMNU 


7 Feb-1984 


lé 
‘a7 
Ba 


ié 
ae 
BB 


13 
a3 
BF 
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1918 MNSTRH DFB >LNAME, >FMNU, > PMNU 

19249 MNENT DFE 7,6,3 

19124 MNCHR DFB MMC,FMC, PMC 

1911 * 

LOL HEH HARE HEHRHKHE EEK 

1913 * Printer Strings * 

LDL HH EEE 

1915 «* 

1916 FTABLE ASC "ntmjwlpsfahzib" 

1917 AUX ASC “ae 

1918 DFB $22 

1912 ASC "*HS(" 

1924 * 

1921 CTRLS DFR BLD, CNTR, UND, SPC 

1922 DFB EOT,EOP,FTR, HDR, FMT 

1923 * 

1924 PFS DSS BLDCH, CDO, UNDL, PSPEC 

1925 * 

1926 PFSi DSS FLINK, PEOT, PEOP, GETFTR 

1927 DSS GETHDR, GETFMT, PCR 

1928 * 

1929 PDOS DSS BCHANGE, UCHANGE 

1932 DSS SUBP, SUPR, PHALT, PCHRS, PPPGN, LCR 
1931 PSPSK DSS PSP@1ze, PSPAl2, PSPwie 

1932 DSS PSPS, PSP4, PSPS, PSP6, PSP7 

1933 * 

LDS4 HHH HHH HEHEHE HEE 

1935 KSTK DSS DAAC, DABC, DELBUF, DNBLK, NEW, DPAR, CLRATABS 
1936 STACK DFS STP,LNBEG, STP, STP, STP, GOEOT 
1937 DFS STP,STP, STP, INSMC, REJUST, KILL, DBWRD 
1938 DFS MTOR, DWRD, GOPGE, STP, BKPGE, REPLACE 
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1939 


1942 


1941 


1942 


1943 


1944 
1945 * 


DFS 


DFS 


DFS 


DFS 


DFS 


DFS 


SEARCH, SHWTBS, STP, STP, CBWRD, JMARK 


CWRD, GOEOL, GCR, CUP, CDWN, CBACK, CADV 


GLER, GOEOP, DTABS, CHNGW, CSCROLL 


DELCLN, CPAR, STOB, INSBF, CPYBF, TAB 


DBACK, SETTAB, DELLIN, BEGIN, INSLIN 


INSERT, CLRTAB, DCHAR, HOMEC 
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Ce 


15 


iz 


1D 


1E 


18 
1F 
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PAGE 


Page: 46 


PILE == EDT 


KRHA HHHE HEHEHE KHER EREKEEEE 


RE 


** LETTER PERFECT ATARI 
EDITOR AND EDIT SUBS 


ee 


** 
ee 
*% 


*% V4, Zl HH 
HEHE KI EEK EK EEE EE 
* 
* 15-Jan-83 
% 
EDITOR JSR DELBUF 
JSR ENTRY ne text buffered 
EMAIN LDA #>EMAIN 
LDY #EMAIN 
JSR DOSYBRK 
EMAINI JSR RDKEY 
BMI LINK 
CMP #SP is it a control? 
BCC LINK yes, handle special 
LDA #12 
L.INK ASL 
TAY 
LDA #>)EMAINI-1 
PHA 
LDA #EMAINI-1 
PHA 
LDA STACK+1,Y 
PHA 
LDA STACK, Y 
PHA 
LDA AIO 
RTS 
9 
3; go to marker, scroll 
; page fwd and page back 
3; werd fwd and wrd back 
e 
CSCROLL JSR CLEOP 
SEC 
DFB #912 bee 
JMARK CLE 
ROR MODE 
LDX #412 
STX TIME timer value 
JSR NOKEY clear key 
CSRi JSR FPRT 
CMP #MARK ? 
BNE CSRe no, goa an 
BIT MODE handle mark? 
BMI CSRe na, go 
JSR CBACK back the cursor 
JSR SSUB 
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A1 s 
1604: 
1627: 
1649: 


16@A: 
16aC: 
16MF : 
1611: 
1613: 
1616: 
1619: 
161C: 
LG1E: 
1Geas 
1623: 
1625: 
1627: 
1629: 
162C: 
162F : 


1632: 
1634: 
1636: 
“S38: 
~O3A 5 
163B: 
163E: 
163F: 
16408: 
1643: 
1646: 
1647: 
1649: 
16458: 
164D: 
164F: 
1652: 
1654: 
1656: 
1659: 
165C 
165E: 
1664: 
1663: 
1666: 
1669: 
166C: 
166F: 
A672 : 
‘ 3748 
1676: 
1678: 
167A: 


16 


1E 


ei 


LE 
LF 
Fat) 


2 


1A 


r= | 
LF 
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CSRe 


PACK 


STP1 


PILL 


Freed 


FILLe 
FILLS 
FILL4 
PILLS 
FILLG 


ADJ 


JMP 
JSR 
BCC 
RTS 


LDA 
JMP 
BIT 
BMI 
JSR 
JSR 
JSR 
LDA 
BEQ 
JSR 
STA 
CMP 
BNE 
JSR 
JSR 
JMP 


CMP 
BNE 
BIT 
BPL 
PHA 
JSR 
PLA 
PHA 
JSR 
JSR 
PLA 
CMP 
BEG 
CMP 
BNE 
JSR 
BNE 
LDA 
JSR 
JSR 
LDA 
BNE 
JSR 
JSR 
JSR 
JSR 
JSR 
JMP 
LDY 
BNE 
CMP 
BEG 
STY 


INSERT 


SCOUT 
STORE 


#E0OP 
FILE 
#CR 
ADJ 
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show rest of page 
ga til key 


buffer still has data 


da we have a buffer 
yes, don’t let them exit 


inserting? 
nea, ga do it 


bra 


counter 
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2a 
16 


1A 


iF 
1F 
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257 
2258 
2459 
WE 
2061 
ewe 
263 
2264 
265 
2266 
227 
2268 
2269 
ea72 
271 
2a7z2 
2473 
2074 
2475 
22476 
2A77 
2278 
2a79 
2282 
2281 
eae 
283 
2284 
248s 
2286 
2287 
2288 
2489 
eag2 
2091 
2ag9e 
2A93 
B94 
Fad ber 
2A96 
2097 
2298 
2499 
Pe 474 
2121 
21a 
2143 
2124 
2125 
2126 
2127 
2128 
2109 
21124 
eiti 


ADJ1 


ADJe 


TOBI 


TOBE 


TOBS 


TOB4 


JSR 
LDY 
LDA 
CMP 
BEQ 
INC 
DEY 
BNE 
BEQ 
STY 
JSR 
JSR 
LDY 
BNE 


LDY 
JSR 
DEY 
BNE 
RTS 


CLC 
DFE 
SEC 
ROR 
JSR 
JSR 
LDA 
PHA 
LDA 
PHA 
CMP 
BCC 
LDA 
JSR 
PLA 
PLA 
SEC 
ROR 
BIT 
BPL. 
RTS 
JSR 
LDA 
BEG 
CMP 
BEG 
CMP 
BEG 
STA 
LDX 
JSR 
LDA 
BNE 
PLA 


$B 


MODE 
SSUB 
TXTPTR 
BPTR 


BPTR+1 


#) BFEND 
TOBS 
#BFF 
PRERR 


STATUS 
MODE 
INSBFE 


INCPTR 
(PTR, X) 
TOBS 
#MARK 
TOB2 
#E0T 
TOB4 
(BPTR, X) 
#BPTR 
INCR 
BPTR+1 
TOBA 
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dawn cursor 


adv ww bytes 


(bes) 


Save pos 
get pointer 
save adr if err 


too long? 
ne, continue 
signal buffer full 


discard bptr 
signal buffer in use 


delete txt? 
yes, go do it 


get char 


no nulls put in 
delimiter? 

yes, done 

MIPS. an 

yes, error no change 
store in buff 


up pointer 


bra 
restore bptr 
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85 
68 
85 
Ag 
4C 


18 
Ba 
38 
66 
a4 
3 
AS 
4C 
P= 
2 
a2) 
pa) 
real) 
a 
a 
fad) 
4C 


a2) 
22 
2 
Al 
C9 
Fi 
cg 
Da 
Fi 


rea) 
22 
Peal 
Al 
cg 
FQ 
C9 
Fi 
Cg 
D2 


Feat) 
4C 


raat) 
2a 
a 
A4 
raat) 
Al 
cg 
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2112 STA BPTR+i 

2113 PLA 

2114 STA BPTR 

2115 DERR LDA #NOD 

2116 JMP PRERR 

2117 * 

2118 CPYBF CLC 

2119 DFE #8 (bes) 
2122 INSBF SEC 

elzi ROR MODE 

2el2e BIT STATUS is there a buffer? 
2123 BMI INSBF1 yes, continue 
2124 LDA #NOB no buffer errar 
2125 JMP PRERR 

2126 INSBF1 JSR INVMOVE 

2127 JSR SSUB 

228 JSR DOBUF 

2129 INSBF2 JSR MOVE 

2ilsa JSR SWAPP 

2131 INSBFS JSR LNBEG 

2132 JSR UNPZ 

2133 JSR FILL6E 

2134 JMP FILL4 

2135 * 

2136 DNBLK JSR SSUB 

2137 JSR TXTPTR 

2138 DNBLK1 JSR INCPTR 

2139 LDA (PTR, X) 

2142 CMP #MARK 

2141 BEQ INSBFe 

2142 CMP #E0T 

2143 BNE DNBLK1 

2144 BEG DERR 

e1i45 * 

2146 DPAR JSR SSUE 

2147 JSR INVMOVE 

£2148 DPARI JSR INCPTR 

2149 LDA (PTR, xX) 

2154 CMP #CR 

2151 BEGQ INSBFe 

21352 CMP #EOP 

2153 BEQ INSBFe 

2154 CMP #EOT 

2155 BNE DPARI 

2156 * 

2157 DAAC JSR ESTORE 

2158 JMP CLEOP 

2159 «* 

£164 DELCLN JSR LNBEG delete current line 
2161 DELLIN JSR TXTPTR 

2162 JSR SSUB 

2163 LDY WW 

2164 DLNi JSR INCPTR 

2165 LDA (PTR, xX) 

2166 CMP #E0T 
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22 


2a 


LETTER PERFECT Atari V6. 


DWRDE 


DOBUF 1 


DOBUFe 


% 


DEIBUF 
DELBUF1 


BEG 
DEY 
BNE 
JSR 
JMP 


JSR 
LDY 
LDA 
BMI 
CMP 
BEQ 
INY 
CMP 
BCS 
LDA 
BMI 
CMP 
BEQ 
INY 
CMP 
BCC 
DEY 
DEY 
BEG 
JMP 


JSR 
JSR 
JSR 
JMP 


JSR 
LSR 
JMP 


LDA 
STA 
LDA 
STA 
BNE 
JSR 
LDA 
STA 
JSR 
LDA 
CMP 
LDA 
SBC 
BCC 
BIT 
BPL 


LSR 
LDA 


ERTS2 
DELN 


TXTPTR 
HADDR 
MOVE 
ENTRY 


HOME 1 
SVFLG 
ESTORE 


#2 

VAL. 
#> BF BGN 
VAL+1 
DOBUFe 
INCTXT 
(VAL, X) 
CT XT GX 
INCVAL 
VAL 
BPTR 
VAL+1 
BPTR+1 
DOBUF 1 
MODE 
ERTS2 


STATUS 
#2 


Page: Sa 


cleop and estore 


just go back 


assumes (256 bytes 
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17D7: 
17DA: 
17DD: 
“STEM 3 


17E1: 
L7E4: 
17E6: 
IVES: 
17EC: 


17ED: 
17F a: 
17F3: 
17F4: 
17FS: 
17F7s 
17F9: 
i7FB: 
17FE: 
18a2: 
18a2: 
18a4: 
1846: 


1827: 
18a: 
18a@c; 
I&m@e: 

1a; 
«O13: 
1816: 
1818: 


85 
AD 
85 
612 


Az 
Ag 
9D 
CA 
12 
G12 


ra) 
1D 
93D 
62 


22 
49 
3D 
9D 
6a 


Ft) 
22 
8A 
18 
69 
1/4) 
85 
22) 
AS 
124 
AS 
85 
62 


2) 
EG 
AS 
14) 
22) 
3D 
Fi 
AS 


B4 
35 


BS 


air 
i 
AS 


FA 


17 


Ar) 


1E 
Biz 
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Cece STA BPTR 
2223 LDA #) BFBGN 
e224 STA BPTR+1 
eee5 ERTS2 RTS 
eree * 
eee? CLRATABS LDX ##F 
2228 LDA #2 
e229 CLATI STA TABMAP, X 
232 DEX 
2231 BPL. CLATI 
2ee3e RTS 
e235 * 
L254 KHER HEHEHE HEHEHE EH 
2235 * TAB FUNCTIONS * 
ZL SE KKK EHH EK HEHEHE REE 
2237 * 
2238 3; TABMAP is each bit represents 
2239 5 a video cursor posiotion with a 
2240 5 1 saying there is a tab there and 
2241 5 a @ saying mo tab set—--reguires 
ee&42 5 12 bytes for 82 columns of tabs 
e243 5 
2244 SETTAB JSR TABPOS 
2245 ORA TABMAP, X 
2246 STA TABRMAP, X 
2247 RTS 
2e48 * 
2249 CLRTAB JSR TABPOS 
2254 EQOR #%FF 
2251 AND TABMAP, X 
e252 STA TABMAP, X 
2253 RTS 
e254 * 
2255 DTABS JSR HSAVE 
PES56 JSR CLRATABS 
2257 TXA 
2258 DTABSI CLC 
2259 ADC #5 
2268 BMI RESTCH 
2261 STA COL 
e262 JSR SETTAB 
2263 LDA COL 
2264 BPL. DTABS1 
2265 RESTCH LDA TCOL 
e266 STA COL 
2267 RTS 
2268 * 
2269 TAB JSR HSAVE 
2274 TABI INC COL 
ee/t LDA COL 
pele BMI RESTCH 
2273 JSR TABPOS 
eE74 AND TABMAP, X 
2275 BEG TABI 
2276 LDA COL 
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186A: 
186D: 
1872: 
1873: 
A875: 
876: 
1878: 
187A: 
187C: 


38 
ES 
85 
Pea) 
Pea) 
Fi 
C9 
Fil 
2a 
Cé 
Da 
612 
Ag 
81 
Da 
Fra] 


AI 2 


ra) 
C& 
Da 
612 


Fa] 
Ae 
BD 
85 
A 
ae 
AQ 
92 
AS 
ml 
AS 
Fi 
88 
Da 
E8 
Da 
4C 


22 
22 
2a 
AS 
38 
ES 
8S 
A 
Az 


18 
iF 


19 


16 


Ss 
my 


LETTER PERFECT Atari V6é.a Page: Se 
2277 SEC 

2278 SBC TCOL 

2279 STA TEMP 

2284 JSR RESTCH 

228i TABE JSR FETCH 

2262 BEG TAR4 

EBS CMP #EOT 

2284 BEG TABS 

2285 TABS JSR SCOUT 

#286 DEC TEMP2 

2287 BNE TAB 

2288 RTS 

2289 TAR4 LDA #5P 

e294 STA (TXT, xX) 

2e91 BNE TABS bra 
e292 TABS JSR DECTXT 

2293 TAB LDA #5P 

2294 JSR STP1 na insert rqd 
2295 DEC TEMP2 

2296 BNE TARE 

2297 RTS 

e298 * 

2299 SHWTRS JSR SCLTOP 

Fete 4174) LDX #1 

2341 SHWT1 LDA TABMAP, X 

2a STA COUNT 

2303 LDY #8 

2344 SHWTe ASL. COUNT 

2SaS LDA #". 

2326 BCC SHWTS 

237 LDA #"+ 

2348 SHWTS JSR SCOUT 

23529 LDA COL 

2314 BEQ SHWT4 

2311 DEY 

2312 BNE SHWTe2 

2313 INX 

2314 BNE SHWT1 bra 
2315 SHWT4 JMP DREST1 

2316 * 

ESL7 eee KH 

2318 ; DELETIONS 

2319 5 char<-, char, word<(-, word 
2320 3 buff,all after,all before, all 
#321 5 line 

eace * 

2323 DBACK JSR CBACK 

2324 DCHAR JSR TXTPTR 

2325 JSR INCPTR 

2326 LDA WW 

FG Tol SEC 

2328 SBC COL 

2329 STA COUNT 

2334 LDY #1 

2331 LDX #1 
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real 


16 
19 


IF 
17 


1A 


1A 
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2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2342 
2341 
23542 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2354 
2351 
2352 
2353 
2354 
e355 
2356 
2357 
2358 
2359 
23628 
2361 
2362 
2363 
2364 
2365 
23566 
2367 
2368 
2369 
2372 
a371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 


DCHARI 


DCHARE 


DCHARS 


DCHAR4 


DCHARS 


DCHARE 


DCHARX 


* 


LDA 
STA 
BNE 
INX 
CMP 
BEG 
CMP 
BEQ 
CMP 
BNE 
INY 
LDA 
STA 
BEQ 
INY 
CPY 
BCC 
STX 
LDA 
STA 
JSR 
LDY 
LDA 
BEQ 
CMP 
BEG 
CMP 
BE) 
INY 
CPY 
BCC 
LDY 
JSR 
JSR 
DEC 
BNE 
RTS 


LDA 
STA 
DEY 
BNE 
JSR 
JMP 


(PTR),Y 
(TXT), Y 
DCHAR2 


#E0OT 
DCHARX 
#CR 
DCHARS 
#E0P 
DCHAR4 


#2 
eTKTIY 
SHOWX 


DCHARX 


TEMP 1 
DCHARG 
COUNT 
CDWN1 
CBACK1 
COUNT 
SHW i 


#2 
(TXT), Y 


DELN 
SSUB 
INSBFS 


HEKKEKKEKKKKRKKHRKEREE 


* CURSOR MOVERS * 
HHKK HK HEK EKER HEE E 


* 


3 Character 4 directions 


% 
CADV 


* 
CPAR 


JSR 
RTS 


JSR 


FPRT 


FPRT 


Page: S33 


must be sub for pop 


7 Feb-1984 


1A 


1A 


1E 
7 


TE 


1E 
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2387 CMP 
2388 BEG 
2389 CMP 
2394 BNE 
2391 BEQ 
2392 

2393 CWRD JSR 
2394 CMP 
2395 BEQ 
2396 CMP 
2397 BCS 
2398 CWRD1 JSR 
2399 CMP 
2420 BEQ 
241 CMP 
2422 BCC 
2445 * 

2404 CBACK LDA 
245 BNE 
246 LDA 
24127 CMP 
2418 BNE 
249 JSR 
2414 CBACKL JSR 
2411 DECTXT L.DX 
2412 DECR LDA 
2413 BNE 
2414 DEC 
2415 DECR! DEC 
2416 RTS 
2417 * 

2418 * 

2419 CUP LDA 
e424 CMP 
2421 BNE 
2422 JSR 
2423 CUPL JSR 
2424 LDA 
2425 LDX 
2426 BEG 
2427 SUBES JSR 
2428 SUBX STA 
2429 STX 
2432 LDA 
2431 SEC 
2432 SBC 
2433 STA 
2434 LDA 
2435 SBC 
2436 STA 
2437 CmMp 
2438 RTS 


Ends — txt, 


#)> START 


* 
2442 5; Begins -txt,pge and line 
H 


Pge and line 


Page: 54 


see if up page ist 


go up @e lines 


check for page up 


Move cursar 


and dawn adr by ww 


bra 
down adr by page 


set carry if ak 
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19SE:s 
1941: 
1944: 
1946: 


1949: 
194C: 
194E: 
195: 


195eé2: 
1954: 
1956: 
1958: 
195B: 
195D: 
1962: 


1963: 
1963: 
1968: 
196B: 
196D: 
196F : 
“9872s 
78 
1978: 
197A: 
197Cs 
197E: 
1981: 
1983: 
1985: 
1987: 
1989: 
198B: 


198E: 
1992: 
1993: 
1995: 
1997: 
1998: 
199A: 
199C: 
199E: 
119A: 
19Az: 
19A4: 
A9A7: 
JAA: 
29AD: 
19Bd: 
1953: 


ae 


1D 
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2442 
2443 
444 
2445 
2446 
2447 
2448 
2449 
2454 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2462 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
24712 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2482 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2492 
2491 
2492 
2493 
2494 
2495 
2496 


¥% 
GOEOT 
GOEOT1 


* 
GOEOP1 
GOEOP 


GOEOL 


CHNGW 


JSR 
JSR 
BCC 
JSR 


JSR 
LDA 
CMP 
BNE 


LDA 
CMP 
BEG 
JSR 
BNE 
JSR 
JMP 


LDA 
JSR 
JSR 
LDX 
BEQ 
JSR 
JSR 
JSR 
BIT 
BPL. 
L.DX 
CPX 
BEG 
BCS 
CPX 
BCS 
LDA 
JMP 


STX 
JSR 
LDX 
STX 
DEX 
STX 
LDA 
CPX 
BCS 
LDA 
STA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDY 


Page: SS 


page start 


Up page 
nat past end yet 
down into txt again 


twidths ° 


save address 
restore address 

no number 

Make sure in range 
ok 


range error 
Make sure mir 


see it top line 
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LNBEG@ 
LNBEG 


ERTSS3 


* 
GOPGE 


* 
BKPGE 


* 
CBWRDZ 
CBWRD 


CBWRD1 


* 


KEEEKKKKKKHKREE 


* INSERTIONS * 
HHH HHH EHH HHH 


* 
INSLIN 


INSL 


* 
INSERT 


CPY 
BEQ 
JSR 
BCS 


JSR 
LDA 
BNE 
RTS 


JSR 
JSR 
BCC 
JSR 
JMP 


JSR 
JSR 
BCS 
JSR 
BEQ 


JSR 
L.DX 
BMI 
LDA 
CMP 
BCC 
JSR 
L.DX 
LDA 
BMI 
CMP 
BCS 
RTS 


JSR 
JSR 
LDY 
LDA 
JSR 
STA 
DEY 
BNE 
JSR 
JMP 


L.DX 
STX 
STX 
JSR 


#1 
LNBEG 
CUP1 
HOMEC 


CBACKI 
COL 
LNBEG2 


HOMEC 
ADDES 
BEGINI 
SUBES 
GOEOQP 


HOMEC 
SUBES 


#"! 


CBACK 


SSUB 
INVMOVE 


(TXT, X) 


INSL 
MOVE 
FILL4 


#2 
VAL. 
VAL+1 
BLANK 


Page: S6é 


yes, go to line start 
go up, w/o check 
bra 


w/o check 


can’t goa back 


cheat prev char 


watch bet lose!! 


do same no adv at end 
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2 
no 


a7 


19 


ei 


iF 


1D 
19 
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INS1 


INSe 
INSS 


* 


JSR 
JSR 
BEG 
CMP 
BEQ 
JSR 
BNE 
JSR 
JSR 
LDY 
LDA 
INY 
STA 
JSR 
LDX 
JSR 
LDA 
ORA 
BNE 
LDA 
STA 
RTS 


INCVAL 
FETCH 
INSS 
#E0T 
INS= 


EREKEKEEKKEKKEKEKEKRERE 


* SEARCH & REPLACE * 
KEKE HEHEHE EKER EEK EH 


% 
FPRT@ 
FPRT 


FINDQ 
¥ 

GLBR 
SEARCH 


REPLACE 


STRMOV 


JMP 
JSR 
CMP 
BNE 
PLA 
PLA 
JSR 
JMP 


SCOUT 
FETCH 
#E0T 

FPRT@ 


CLEOP 
DECTXT 


STRMOV 
MODE 
SRCHe 


Page: 57 


convert alpha tc caps 


replace too? 
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a1 
22 
1E 


LF 


41 


1F 


“7 


LZ 


a7 


7 
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a7 
7 


LETTER PERFECT Atari V6.4 


SRCHE 


NOF IND 


FIND 


FIND1 


SFOUND 


FINDS 


FIND4 


TONEXT 


ERTS4 
NX TONE 
NXTONE1 
SLNK 
RPLMD 
RPLMD1 


LDA 
JSR 
JSR 
JSR 
BCS 
JSR 
CMP 
BEQ 
LDY 
CMP 
BEQ 
L.DX 
LDA 
JSR 
JMP 
INX 
CPX 
REG 
INY 
LDA 
BEQ 
JSR 
ChIP 
BEG 
BNE 
INY 
STY 
LDY 
LDA 
CMP 
BEG 
JSR 
INY 
BPL 
JSR 
DEY 
BNE 
JSR 
BIT 
BMI 
JSR 
JSR 
CMP 
BEG 
RTS 
LDY 
JSR 
BEQ 
BYVS 
JSR 
JSR 
CMP 
BEQ 
CMP 
BEG 


TEMPS 
SF OUND 


(TXT), Y 
FIND1 
FCAP1 
NAME 1, X 
FIND 
NOF IND 


#5P 
NX TONE 


TEMPe2 
CDWNi 
SRCHE 
DORPL 
BELL 
RDKEY 
#CR 

NX TONE 
#E0T 
ERTS4 


Page: 3&8 


aborted 

get char 

at end? 

yes, exit 
start at begin 


mk 
do this char 


print it 
do again 


end of string yet? 
yes, ga 


skip nulls 
convert to alpha 


up ta length 


replacing? 
yes, go check prompt 


include nulls 
do in one step 
and go again 
autea, go da 
Signal here 


na replace on cr 


yes, exit 
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F662 

2663 

2664 DORPL 
2665 

2666 

2667 

2668 

2669 

2674 

2671 DORPL1 
2672 

2673 DORPL2 
2674 

2675 * 
2676 DOINS 
2677 

2678 

2679 

2684 

2681 

2682 

2683 

2684 

2685 

2686 * 
2687 ISRPL 
2688 

2689 

2692 

2691 

2692 

2693 % 


CMP 
BNE 
LDA 
SEC 
SBC 
BEG 
BCC 
TAY 
JSR 
LDY 
BEQ 
JSR 
BNE 


JSR 
JSR 
LDY 
JSR 
LDY 
JSR 
JSR 
JSR 
LDY 
BNE 


LDA 
STA 
DEY 
BNE 
LDY 
RTS 


#SP 
RPLMD1 
TEMP= 


BYPTR 
DORPL1 
DOINS 


DELN 
BYPTR 
SLNK 
ISRPL 
NXTONE1 


SSUB 
INVMOVE 
TEMP2 
YPTR 
BYPTR 
ISRPL 
YTXT 
INSBFe 
BYPTR 
NX TONE 1 


IN—1, Y 
(TXT), Y 


TSRPL 
BYPTR 


Page: S9 


anly allow three 
see if longer 


by # moved 


(bra) 
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©6995 PAGE 

f696 * 

£697 ##* FILE -- MAIN 

2698 * 

LEDD HEHEHE HHH HERE KEKHEHE KE 
2742 * LETTER PERFECT Atari * 


z7a1l * Version 4.2 * 
27D RHR HHEHHEHEEEHEEKEHHHEE 
e743 * 
1B42: AY 1B 2744 MAIN LDA #)>MAIN 
1B4e2: Ad 42 2745 LDY #MAIN 
1B44; 22 SF 1B 2726 JSR DOSYBRK 
1847: AS CE 2727 LDA MPOS 
1B49: 85 CD 2728 STA POS 
1B4B: Az aa 2729 LDX #2 
1B4D: 22 BBR 1B #2714 JSR DOMENU 
1BS@: 86 CE 2711 STX MPOS 
1BSe@: AM AA ev7iz LDA #14 
1BS4: 85 Cb 2713 STA POS 
1BS56: BD CD 14 #714 LDA MSTKH-1, X 
1BS9: 48 e7is PHA 
1BS5A: BD DS 14 #716 LDA MSTKL-1id, X 
TBSD: 48 2717 PHA 
1BSE: 624 2718 RTS 
2719 * 

“SSF: 85 EF 2724 DOSYBRK STA BRKV+1 
~BOHl: 84 EE 2721 STY BRKV 
1B63: 68 e7ee PLA 
1B64; 85 DF eles STA TEMPI1 
1B66: 68 27i4 PLA 
1867: 85 Ea eved STA TEMPE 
1B69: Ae FF 2726 LDX #$FF 
1BEB: 9A 2727 TXS 
1B6C: AD 1B 2728 LDA #>MAIN-1 
1EGE: 48 2729 PHA 
1BEF: AD SF 2734 LDA #MAIN—-1 
1B71i: 48 27atl PHA 
1B72: AS Ea 2732 LDA TEMP 
1874: 48 2733 PHA 
1875: AS DF 2734 LDA TEMP1 
1B77: 48 2735 PHA 
1B7&: 6 2736 RTS 

elist * 

1B79: Aw 28 2738 PPRM LDY #8 
1B7B: AD we 2739 LDA #2 
1B7D: 22 De 2a 2742 JSR SETHV 
1BG@: Aa AS 2741 LDY #FSTR 
1BB2: 22 AF 21 2742 JSR PUTLNS 
LBAS!: 22 S59 21 2743 JSR BLNKe 
1B88: AZ Ba 2744 LDY #DBNAME 

ABSA: 22 AF 21 2745 JSR PUTLNS 

38D: 24 59 fl #2746 JSR BLNKe 
1BO@: AA 79 2747 LDY #DENS 
1B92: #2 AF #21 2748 JSR PUTLNS 


1B95: 24 DD 21 2749 JSR SCRDO 


7 Feb-1984 


15 


LETTER PERFECT Atari V6.4 


2754 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2762 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2774 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2784 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2794 
2791 
2792 
2793 
2794 
2795 
2796 
e197 
2798 
2/799 
282A 
2801 
2602 
2823 
2804 


PPRM 1 
3 


DOMENU 


MENU 1 


LDY 


JMP 


STX 


LDA 


#UNIT 
PUTLNS 
#12 
FUNIT 
PUTDEV 
#17 
DUNIT 
PUTDEV 
#25 
COL. 
#SDS 
BPS 
PPRM1 
#DDS 
PUTLINM 


MNSTRL, X 
VPTR 
MNSTRH, X 
VPTR+1 
MNCHR, X 
MTMP 

#) MMC 
MTMP+1 
MNENT, X 
COUNT 
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2805 
ZBaG 
2827 
2828 
2829 
28124 
2811 
2812 
2613 
2814 
2815 
2816 
2817 
2818 
2819 
2622 
2821 
e822 
eB23 
2824 
e825 
2626 
2827 
2828 
2829 
2832 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
284 
2841 
2842 
2843 
2844 
2B45 
2B46 
2847 
2846 
2849 
2652 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 


MENUE 


MENUS 


MNADJ 


MNADJ 1 


PUTCUR 


MNCLR 


MUP 


*% 
GETDEV 


#MOVID 


(MTMP), Y 
MNADJ 


MENUS 
MENU 


#9 
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2a 
Fed] 
a 
Fa 
49 
FQ 
Cg 
Ba 
AG 
95 
G2 
AQ 
4C 


Az 
Ag 
=z 
Az 
AQ 
rea) 
A 
rea) 
Al 
2a 
a 
C9 
Fila 
Cg 
Fi 
cg 
e)4) 


18 


92 i 


AG 
rea) 
AG 
E4 
Fia 
2a 
A 
Az 
8A 
2a 
Az 
A 
BD 
99 
CA 
88 
Da 
AS 


ic 


1D 


1D 


ZA 
2A 
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2862 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2872 
2871 
2872 
2873 
2O74 
2875 
2876 
2877 
2878 
2879 
2882 
2881 
2882 
2883 
ZB84 
2885 
2686 
2887 
2888 
2889 
2892 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2984 
2921 
29g 
2923 
2924 
2945 
2946 
2917 
2948 
2949 
2914 
2911 
2912 
2913 
2914 


MRTS& 
RGEE 


¥ 
NEWDEV 
NEWDEV1 


NEWDEVe2 


NWD 1 


;LDA BPS 
;ASL 
; BEG 
NWDe 
NWDS 
STSGL 


NWDS 


DOSGL. 


STDS 
STD! 
STD1 


DOSTAT 


JSR 
JSR 
CMP 
BEQ 
EOR 
BEQ 
CMP 
BCS 
L.DX 
STA 
RTS 
LDA 
JMP 


LDX 
LDA 
JSR 
L.DX 
LDA 
JSR 
LDA 
JSR 
LDY 
JSR 
JSR 
CMP 
BEG 
CMP 
BEQ 
CMP 
BNE 


(bra) 


CLC 
BCC 
L.DX 
JSR 
L.DX 
CPX 
BEQ 
JSR 
LDY 
L.DX 
TXA 
JSR 
LDX 
LDY 
LDA 
STA 
DEX 
DEY 
BNE 
LDA 


Page: 63 


PUTLNS 
GETONE 


#FUNIT 
#FSTR 
GETDEV 
#DUNIT 
#DBNAME 
GETDEV 
#DENS 
HL.INE 
#DENS1 
PUTLNM 
GETONE 
#"S 
NWDS 
#CR 
MRTSZ 
#"D 
NWD1 
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1D 


iD 


LETTER PERFECT Atari V6.2 Page: 64 
£915 STA DCMND 
2916 JMP DSKINV 
2917 * 

2918 STDBL LDX FUNIT 
2919 JSR DODBL 
2922 LDX DUNIT 
e921 CPX FUNIT 
2922 BEQ DOSTAT 
2923 DODBL JSR TBLRD 
2924 LDA #1 

2925 LDY #2 

£926 LDX #4 

2927 JSR TBLWT 
2928 LDX #17 
e929 TYA 

2934 BPL STD 
2931 JSR STSGL 
2932 LDA #DVE 
2933 JMP FATAL 
2934 * 

2935 TBLRD STX SDEV 
23936 LDA #8412 
2937 LDY ##4E 
2938 BNE TRW 
£2939 TBLWT STX #125 
2942 STA $126 
2941 STY #127 
2942 LDA #862 
2943 LDY ##%4F 
2944 TRW STA DSTATS 
2945 STY DCMND 
2946 LDY #1 

2947 STY IOBB+1 
£2948 STY DTIME 
2949 DEY 

2954 STY IOBE 
2951 LDA #%#C 
2935c JSR DVSET 
2953 JMP SIO 
2954 * 

2955 * 

LOSE HEHEHE EERE KEE EHH HEE EE 
2957 * Printer subroutines * 
LOIS G HHH HKH HHH EEE HEH HEH HEHE 
2959 * 

2962 DBM LDA #$7F 
2961 STA MODE 
2962 JSR ISDB py Sed 
2963 JSR GNAMER 
2964 LDY #2 

2965 STY DBFLAG 
2966 DEBM1L LDA NAME, Y 
2967 STA NAME, Y 
2968 INY 

2969 CPY #8 


7 Feb-1984 


— 


G4: 
1DG66: 
1D69: 
1D6éC: 
1D6D: 
1DGF : 
ID7i: 
ID73: 
iD76: 
1D79: 
ID7B: 
iD7D: 
ID7F: 
1D82: 
1DS8sS: 
1D86: 
IDSs: 
1D8A: 
1DSc: 
1DBE: 
IDV: 
1D91: 
1D93: 
1iD9S: 
ID9e: 

“9B: 
~O9D: 
1D9OF: 
ipbAe: 
1DAS: 
LDAB: 
1DARB: 
IDAE: 
1DB@: 
iDBe: 
1DES: 
IDB: 
1DBE: 


92 
BY 
99 
C8 
C2 
92 
AQ 
= 
2’ 
AG 
Fi 
C6 
BD 
9D 
CA 
1a 
3 
AQ 
85 
Ag 
2C 
AY 
85 
rea) 
22) 
m4 
bal) 
a 
ze 
2) 
22 
=) 
a4 
ai 
rea) 
22 
fea) 
4C 


FS 
FB il 
a2 41 


ap 
FS 
48 
AG 21 
9A 2a 
Fe 
18 
CB 
Wi Ze 
41 41 


F7 
2B 
3a 
Dé 
Ba 


val) 
D8 
62 23 
BE 1D 
DS 
a3 
2B 29 
FS 28 
CA ZA 
BB 23 
BE 1D 
D& 
a3 
e829 
FS 28 
CD ZA 
AB iD 


LDBE 
IDC@s\ Aa wa 
iDC#: 84 


1DC4: 
1DC6E: 
iDCS: 
1DCA: 
1DCC: 


8S 
AQ 
85 
A4 
AS 
48 
Fa) 
2 
Ad 
68 
69 
CS 
924 


4 
18 
FS 
bake) 
s4 


87 7 
F7 7 
2 


2 
FS 
Fa 


LETTER PERFECT Atari V6.2 Page: 65 
2970 BCC DEM 
2971 DEMz LDA DBID-8, Y 
2972 STA NAME1,Y 
2973 INY 

2974 CPY #11 
2975 BCC DBMz 
2976 LDA #SM 
2977 JSR HLINE 
2978 JSR GETLN 
2979 LDX BYPTR 
2980 BEQ PRINT1 
2981 DEC DBFLAG 
2982 DEM LDA IN, X 
2983 STA SRCH, X 
2984 DEX 

2985 BPL DEM3 
2986 BMI PRINT1 
2987 SPRINT LDA #$3a 
2988 STA TIME 
2989 LDA #s8a 
2990 a 
2991 PRINT Lba 

2992 STA MODE 
2993 PRINT JSR PSUBI 
2994 JSR CLS 
2995 BIT MODE 
2996 BVC PRINTE 
2997 JSR DBOPEN1 
2998 PRINT JSR POPENP 
2999 JSR COLDP 
3@@2 PRINTS JSR PSUBE 
3001 JSR CLS 
3002 BIT MODE 
3003 BVC PRINT4 
3004 JSR DBOPEN 
3@@5 PRINT4 JSR POPENP 
3026 JSR WARMP 
3007 JMP PRINTS _ 
3008 * — 
3009 CLS LDA #1 

3010 CLS1 LDY #2 

3011 STY COL 
3012 STA CV 

3013 CLEOP LDA #24 
3014 CLEOW STA TEMP 
3015 LDY COL 
3016 LDA CV 

3017 CLEOP1 PHA 

3018 JSR BASCALC 
3019 JSR CLEOLi 
3020 LDY #2 

3021 PLA 

3022 ADC #2 

3023 CMP TEMP 
B24 BCC CLEOPI 


+4 
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a7 


2 


a7 


1D 


34 
iz 


S$ 
fy 
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3225 
SMz6 
S27 
S428 
3829 
S23 
S231 
Sa3e 
SWS 
SAS4 
335 
SUSE 
S37 
3238 
S439 
S412 
3241 
3042 
S243 
3244 
3245 
S246 
3247 
3248 
349 
Sas 
S51 
S52 
SASS 
SUS4 
S255 
S56 
SWS7 
358 
3459 
SMG 
SME1 
SWGZ 
S263 
S264 
SMES 
SWGE6 
3867 
3268 
3469 
S272 
S71 
a7 
3473 
374 
S475 
3276 
377 
3278 
3479 


% 
SETINV 


SETNORM 


NOKEY 


* 


JMP 


LDA 
DFB 
LDA 
STA 
RTS 


STX 
STY 
STA 
RTS 


LDY 
CPY 
RTS 


JSR 
BEG 
LDA 
STA 
INC 
BPL 
ASL 
RTS 


SEC 
PHA 
SBC 
BNE 
PLA 
SBC 
BNE 
RTS 


LDX 
STX 
INX 
STX 
STX 
RTS 


#1 
WAIT 


\ 
#1 
WAITI 

—} 


#$FF 
KEYREG 


KIN 
KOUT 


HHH KE HEHEHE EHH HEHEHE EE HE 
* Editor subroutines * 
KKH HHH HH HHH HHH EHH HEHEHE 


% 
TABPOS 


LDA 
LSR 
LSR 
LSR 
TAX 
LDA 
AND 
TAY 
L.DA 


COL. 


COL 
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S84 
S28 1 
S262 
3283 
3284 
3285 
S286 
3187 
3288 
S289 
Sag 
3291 
S292 
S93 
3294 
3295 
S236, 
3297 
3298 
3299 
31a 
3181 
3102 
3183 
3104 
3145 
3146 
3127 
3128 
3129 
3114 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3122 
3121 
3122 
3123 
3124 
$125 
3126 
3127 
3128 
3129 
3132 
3131 
3132 
3133 
3134 


TBP1 


SCERR 


MULE 


CMP1iz2 


CHECK 


SEC 
ROR 
DEY 
BPL. 
RTS 


JSR 
JSR 
LDY 
JSR 
JSR 
BCC 
JSR 
JSR 
JMP 
JSR 
JSR 
JmMPp 


STA 
JSR 
CMP 
BNE 
LDA 
TAY 
BNE 


LDY 
LDA 
STA 
LDX 
TXA 
CLC 
ADC 
BCC 
INX 
DEY 
BNE 
RTS 


JSR 
CLC 
ADC 
STA 
TXA 
ADC 
STA 
LDA 
CMP 
L.DA 
SBC 
RTS 


BIT 
BPL 


TBP 


SSUB 
HOMEC 
#22 
MUL.W 
SUBX 
SCERR 
GOEOP 
RESTCH 
SWAPP 
BELL 
BEGIN 
EMAIN 


MTMP+1 


MTMP+1 
MULE 


MUL. 1 


MES 


TXT 
TXT 


TXT+1 
TXT+1 
TXT 
TXEND 
TXT+1 


TXEND+1 


MODE 
CHECK 


\ 


| 
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LE 


1D 


1D 


a7 


LF 
1F 
Fe) 
2a 


2a 


LETTER PERFECT Atari V6.a Page: 68 
3135 LDA TIME 
3136 JSR WAIT 
3137 CHECKa TYA 

3138 PHA 

3139 JSR CKEY 
314a BEQ NOPE 
3i4i JSR GKEY 
3142 CHECKi CMP #E0T /) 
3143 BEQ YEP 
3144 CMP #"¢ 
3145 BEQ SLOW ; 
3146 CMP #") 
3147 BEG FAST 
3148 JSR RDKEY 
3149 CMP #E0T 
3154 BEQ YEP 
3151 NOPE cL 

3152 YEP PLA 

3153 TAY 

3154 RTS 

3155 SLOW LDA TIME 
3156 CMP #$FC 
3157 BCS NOPE 
3158 INC TIME 
3159 INC TIME 
3168 BNE NOPE 
3161 FAST LDA TIME 
3162 CMP #5 

3163 BCC NOPE 
3164 DEC TIME 
3165 DEC TIME 
3166 BNE NOPE 
31iG7 * 

3168 UNPACK JSR HADDR 
3169 UNPZ JSR  INVMOVE 
3172 UNP@ JSR INCTXT 
s171 JSR INCPTR 
3172 UNP1 LDY #2 

3173 STY YREG 
3174 UNP2 LDA (PTR),Y 
3175 BNE UNP@e@ 
3176 JSR INCPTR 
3177 BEG UNP& always 
3178 UNP@e STA (TXT),Y 
3179 INY 

318a CMP #EOT 
3181 BEQ UNPS 
3182 CMP #CR 
3183 BEG UNP7 
3184 CMP #E0OP 
3185 BEQ UNP7 
3186 CMP #SP 
3187 BNE UNP3 
3188 STY YREG 
3189 UNP2 CPY WW 
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iF 


Fea) 


LETTER PERFECT Atari Vé.a4 Page: 69 
3192 BCC UNP2 
3191 LDY YREG was there a space 
3192 BNE UNP4 
3193 LDY WW 

3194 STY YREG 
3195 UNP4 JSR YPTR 
3196 LDY YREG 
3197 UNPS CPY WW 

3198 BEG UNPG 
3199 LDA #2 

S22 STA (TXT),Y 
Seal INY 

Seu BNE UNPS 
3243 UNPG JSR YTXT 
S2a4 LDA TXT+1 
S225 CMP HIM 
S226 BCC UNPiI 
S27 DEG TAT+1 
S248 JMP DOOME 
3229 UNP7 STY YREG 
Seid JMP UNP4 
S211 UNPS& DEY 

seis BEG UNPS 
SE1S JSR YTXT 
3214 UNP9 JMP ESTORE 
3215 * 

S216 MOVE LDY #1 

S217 MOVEL LDA (PTR),Y 
3218 STA (TXT),Y 
3219 CMP #EOT 
See2a BEG UNPS& 
S221 INY 

3eee BNE MOVE1 
S223 INC PTR+i 
SRE4 INC TXT+1 
Seeo BNE MOVE1 
S226 * 

S227 STORE JSR INCTXT 
S228 STA (TXT, X) 
3229 TESTe JSR CMP12 
S234 BCC SRTSi1 
S231 ESTORE LDX #TXEND 
S232 JSR TXTO 
SEz33 LDX #TXEND 
SES4 JSR INCR 
3235 LDA #E0OT 
SES6 STA (TXEND, xX) 
3237 LDA TXEND+1 
3238 CMP HIM 
3239 BCC SRTS1 
Se42 JSR CUP 
SH41 JSR CLEOP 
S242 DOOME LDA #0OME 
S243 JSR PRERR 
SE44 JMP ESTORE 
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S245 
3246 
3247 
3248 
S249 
3254 
S251 
3252 
S253 
S254 
3255 
3256 
3257 
3258 
S259 
S262 
S261 
S262 
S263 
S264 
S265 
S266 
3267 
3268 
3269 
3274 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
S284 
3281 
3282 
3283 
3284 
3285 
S286 
3287 
3288 
3289 
3294 
3291 
S292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 


% 
INVMOVE 


INVM1 


RDCAP 


¥ 
GETONE 


LDA 
STA 
LDA 
STA 
L.DA 
STA 
LDA 
SEC 
SBC 
PHP 
TAY 
L.DA 
STA 
SBC 
TAX 
INX 
PLP 
BCS 
DEC 
LDA 
STA 
DEY 
CPY 
BNE 
DEC 
DEC 
DEX 
BNE 
INC 
RTS 


JSR 
LDA 
RTS 


JSR 
Jp 


JSR 
PHA 
JSR 
PLA 
RTS 


JSR 
CMP 
BCC 
CMP 
BCS 
AND 
RTS 


JSR 
LDX 


#2 
PTR 
HIM 
PTR+1 
TXT 
VAL 
TXEND 


TXT 


TXEND+1 
VAL+1 
TXT+1 


INVM1 
VAL +1 
(VAL), Y 
(PTR),Y 


#$SFF 

INVM1 
PTR+1 
VAL+1 


INVM1 
PTR+1 


INCTXT 
(TXT, X) 


RDKEY 
FCAP1 


RDCAP . 


DREST 


FETCH 
#"A 
SRTS1 
#"2+1 
SRTS1 
#$5F 


HVSAVE 
#PRNCNT 


Page: 
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_ FCDs ec S302 DFR $2C 
1IFCE: Ae 45 3321 TXTDADR LDX #DADR 
1FD@: 2c S302 DFB #2C 
1FDi: Az Ba 3343 TXTPTR LDX #PTR 
IFDS: AS 9E 3304 TXTO LDA TXT 
1FDS: 95 wim 3305 STA LOC, xX 
IFD7: AS 9F S346 LDA TXT+1 
1FD9: 95 wi 3317 STA LOCI, xX 
IFDB: 62 3328 RTS 

S329 * 
IFDC: A4 AE 3312 TNDTXT LDY TXEND 
1FDE: AS AF 3311 LDA TXEND+1 
IFE@: Da 19 3312 BNE TOTXT 
1FEz@: AM FF 3313 INTXT LDY #IN-1 
IFE4: AS aS 3314 LDA #)IN-1 
1FEGé: Dd 13 3315 BNE TOTXT 
IFE8: A4 9A 3316 SWAPP LDY PRNCNT 
1FEA: AS 9B 3317 LDA CHRCNT 
IFEC: Da aD 3318 BNE TOTXT 
1FEE: A4 Ba 3319 PTRTXT LDY PTR 
IFF@: AS Bl S324 LDA PTR+1 
1FFe: Da 7 3321 BNE TOTXT 
IFF4: 22 BE 1D S3&2 HOME JSR CLS 
1FF7: AS 48 3323 HADDR LDA #)START 
IFF9: AR wa S324 TOTXT! LDY #2 

“SFE: 84 9E 3325 TOTXT STY TXT 
«FFD: 85 9F S326 STA TXT+1 
FFF: 62 3327 RTS 
Ms At AG 3328 ADRTXT LDY ADR 
eades AS A7 3329 LDA ADR+1 
eaa4: Da FS 3334 BNE TOTXT 

S331 * 
22426; AZ BA 3332 YPTR LDX #PTR 
2M28: 2C 3333 DFB $2C 
2MA9: AE IE 3334 YTXT LDX #TXT 
2008: 98 3345 YUP TYA 
2aacs 18 3336 CLC 
2aad: 75 wa 3337 ADC LOC, X 
SAMs OS wz 3338 STA LOC, XxX 
eWii: 92 a2 3339 BCC SRTS& 
eM@iS: Fe a1 334 INC LOC1,X 
2415: 6 3341 SRTS& RTS 
S342 % 

2016: Cé Ee 3343 GHEX1 DEC NFLAG 
2@18: Ae ws 3344 LDX #3 
221A: A 3345 ASL. 
E@1B: 2A 3346 ASL 
2e21Cs mA 3347 ASL 
2e@iDd: BA 3348 ASL 
BQ1E: mA 3349 GHEX2 ASL 
4201F: 26 Be S354 ROL. VAL 

Nel: #6 BS 3351 ROL VAL+1 
eWes: CA 3352 DEX 
eQ@24: 14 FS 3353 BPL GHEX2 


e@ce: 2#4 BA 1F 3354 GHEX JSR FCAP 
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goog 

3356 

3357 

3358 

3359 

336 

3361 NONUM 
3362 

3363 

3364 

3365 * 

3366 GETNUMA 
3367 GETNUM 
3368 

3369 

3378 

3371 

3372 

3373 

3374 

3375 GTN1 
3376 GTNe 
3377 

3378 

3379 

3382 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3394 

3391 

3392 

3393 

3394 

3395 

3396 

RW If 

3398 

3399 

S42 

S421 # 

3442 INCPGN 
S43 

3424 INCVAL 
3425 

3426 INCPTR 
3407 

3428 INCTXT 
3429 INCR 


EQOR 
Chip 
BCC 
ADC 
CMP 
BCS 
JSR 
LDA 
BIT 
RTS 


JSR 
LDA 
STA 
STA 
STA 
JSR 
CMP 
BEG 
BNE 
JSR 
EOR 
CMP 
BCS 
PHA 
DEC 
LDA 
PHA 
LDA 
ASL 
ROL. 
ASL. 
ROL. 
ADC 
STA 
PLA 
ADC 
STA 
ASL. 
ROL. 
PLA 
ADC 
STA 
BCC 
INC 
BCS 


L.DX 
DFE 
L.DX 
DFE 
L.DX 
DFE 
L.DX 
INC 


#PAGEN 
$2C 
#VAL 
$2C 
#PTR 
$2C 
#TXT 
Loca, x 


Page: 72 
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3412 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3424 
3421 
3422 
3423 
3424 
3425 
S426 
3427 
3428 
3429 
343 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3442) 
3441 
3442 
3443 
3444 
S445 
3446 
3447 
3448 
3449 
34524 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
S459 
S462 
3461 
3462 
3463 
3464 


INC@ 


* 
GETLN@ 


GETLN 


GETLNi 


GETLNe 


DREST 
DREST1 


SETHYV 
SETV 


* 
HOME 


PRDNF 


BNE 
INC 
L.DX 
RTS 


JSR 
JSR 
STY 
STA 
JSR 
BIT 
BPI. 
DEC 
STX 
JSR 
INC 
LDX 
JSR 
JSR 
CMP 
BEQ 
STA 
CMP 
BEQ 
JSR 
INX 
BNE 
STX 
LSR 
JSR 
LDY 
LDA 
Sry’ 
STA 
JMP 


LDY 
LDA 
BNE 


JSR 
CMP 
BEG 
RTS 


JSR 
LDY 
JSR 
LDA 
SEC 
SBC 
TAX 
LDA 
SBC 
CLC 


INC@ 
LOCI, X 
#2) 


GLEGN 
CLEOL 
VPTR 
VPTR+1 
CLEAR 
EMODE 
GETLNI 
OSTREAM 
BYPTR 
PUTLN@ 
OSTREAM 
BYPTR 
GLBGN 
RDCHAR 
#$0AB 
GETLN@ 
IN, X 
#CR 
GETLN2 
SCOUT 


GETLNI 
BYPTR 


HIM 
TXEND+1 
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3465 DFR #B 
3466 PRDF SEC 

3467 STX VAL 
3468 STA VAL+I1 
3469 PRVAL LDX #4 
347i PRD ROR NFLAG 
3471 LSR NFLAG 
3472 PRNI LDA #1 
3473 STA TEMP 
3474 PRNZ LDA VAL 
3475 CMP DEC@—1, X 
3476 LDA VAL+1 
3477 SBC DECi-1, xX 
3478 BCC PRNG 
3479 STA VAL+1 
3482 LDA VAL 
3481 SBC DECM-1, xX 
3482 STA VAL 
3483 INC TEMP 
3484 BNE PRN& 
3485 PRNG LDA TEMP 
3486 BNE PRN4 
3487 BIT NFLAG 
3488 BMI PRN4 
3489 BVC PRNS 
3492 JSR BLANK 
S491 BNE PRNS 
3492 PRN4 JSR NOUT 
3493 SEC 

3494 ROR NFLAG 
3495 PRNS DEX 

3496 BNE PRN1 
3497 LDA VAL 
3498 LDY COL 
3499 PUTDEV STY COL 
3542 NOUT QORA #"2 
S521 BNE COUT 
S522 * 

35243 DECS STA VAL 
S54 LDX #12 
S55 STX VAL+1 
S526 INX 

3527 INX 

3518 SEC 

3549 BCS PRD 
3514 * 

3511 MNERA LDA #5 
3512 JSR BLNKe&@ 
3513 LDA #312 
3514 BLNK22 STA COL 
3515 BLNKE JSR BLANK 
3516 BLANK LDA #SP 
3517 DFB #2C 
3518 ESCOUT LDA #EOT 
solo DFR #2C 
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3524 EQOUT LDA #"= 
3521 DFR #2C 
352 CRDO LDA #CR 
3523 COUT JSR VSAVE 
352 LDX OSTREAM 
3525 BEQ ECHO 
3526 JSR POUT 
3527 JMP VREST 
3528 SCROUT LDA #CR 
3529 SCOUT JSR VSAVE 
3534 CMP #CR 
Saal BEQ SCR 
Suse CMP #SP 
3533 BCS ECHO 
3534 CMP #EOT 
aoe BEQ SBLNK 
3536 TAY 

3537 BEQ SBLNK 
3538 ORA ##CQ 
3539 DFB #2C 
3542 SBLNK LDA #SP 
3541 DFB #2C 
3542 SCR LDA ##1E 
3543 ECHO JSR VIDEO 
3544 VREST LDX xIiO 
3545 LDY yYIO 
3546 LDA AIO 
3547 RTS 

3548 * 

3549 SETe&S LDA #3 
3534 LDY #12 
3551 JSR SETIT 
3552 LDY #FILE 
Rtas be BNE PUTLNE 
S354 * 

3555 HLINE PHA 

3556 JSR SCLTOP 
3557 JSR BELL 
3558 PLA 

3559 TAY 

3564 PUTLNS LDA #)> SNAME 
3561 DFR #2C 
3562 PUTLNM LDA #)>HDRi 
3563 DFB #2C 
3564 PUTLNE LDA #)>ERR 
3565 PUTLN STA VPTR+i 
3566 STY VPTR 
3567 PUTLN@ LDY #2 
3568 PUTLNI LDA (VPTR),Y 
3569 BMI PUTLNe 
3572 JSR MYCOUT 
3571 INY 

3572 BNE PUTLINI 
3573 PUTLNEe AND #%$7F 
3574 INY 
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3575 
3576 
3577 
3578 
3579 
3582 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3592 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
SE 
S621 
3622 
3683 
S604 
3685 
S626 
3627 
3628 
3629 
3614 
3611 
3612 
3613 
3614 
3615 
S616 
3617 
3618 
3619 
S624 
S621 
S622 
S623 
3624 
3625 
S626 
3627 
3628 
3629 


* 

MYCOUT JSR 
LDX 
BPL. 
LDY 
STA 
INC 
BNE 


POUT LDA 
PHA 
LDA 
PHA 
LDA 
RTS 

* 

PRERR STA 
LDX 
STX 
INX 
STX 
JSR 
LDY 
JSR 
LDY 
JSR 
LDY 
CPY 
BNE 
LDX 
LDA 
JSR 

PRERR1 JSR 
JSR 
JSR 
SEC 
RTS 


* se ok 


GLBSZ DEX 
JMP 

GLBS TXA 
BNE 
RTS 

* 

GLBEGN@ JSR 

GLEGN TXA 
BNE 
RTS 


VSAVE 
OSTREAM 
ECHO 
BYPTR 
IN, Y 
BYPTR 
ECHO 


SCRDO 
#CR 
VSAVE 
ECHO 


PRINTV+7 
PRINTV+6 


AIO 


YREG 
#$FF 
$372 


OSTREAM 
SCLTOP 
#ERR 
PUTLNE 
YREG 
PUTLINE 
YREG 
#1I0E 
PRERR1I 
XREG 
#12) 
PRDNF 
BELL 
RDKEY 
DREST 


one-page getin 


BS 


GLES@ 


GLES@ 


GLBGN@ 
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S632 * 
Se2E: BD @2 2 3631 GLADV LDA IN, X 
231: D2 we 3632 BNE GLADVi 
2233: AI 2a 3633 LDA #SP 
2235: 9D @ @& 3634 GLADVI STA IN,X 
2236: EB 3635 INX 
2239: 40 76 #1 3636 JMP SCOUT 
3637 * 
#230: #0 35 22 3638 GLEOLA JSR GLADVi 
223F: BD @ 26 3639 GLEOL LDA IN, xX 
2242: DA FB 3642 BNE GLEOL@ 
2244: 62 3641 RTS 
S642 % 
2245: 20 3F #2 3643 GLEND®@ JSR GLEOL 
#248: AQ IE 3644 GLEND LDY #CR 
224A: 2c 3645 DFB $2C 
224B: AQ AB 3646 GLCAN LDY #%AB 
224D: 68 3647 PLA 
224E: 68 3648 PLA 
224F: 98 3649 TYA 
25a: 62 3650 RTS 
3651 * 
2251: 28 23 22 3652 GLDBS JSR GLBS 
2254: BD @2@ @& 3653 GLDEL LDA IN,X 
2257: Fa 2a 3654 BEG SRTS4 
“259: 86 Fe 3655 STX BYPTR 
258: BD @i @6 3656 GLDEL1 LDA IN+i,X 
225E: 9D 22 26 3657 STA IN,X 
PeG61: FQ ae 3658 BEQ GLDEL2 
2263: #8 76 #1 3659 JSR SCOUT 
2266: EB 3660 INX 
2267: DO Fe 3661 BNE GLDEL1 
2269: 22 5C 21 3662 GLDEL2 JSR BLANK 
226C: 22 77 27 3663 JSR BS 
2e6F: E4 Fe 3664 GLDELS CPX BYPTR 
2271: FO a6 3665 BEQ SRTS4 
2273: #2 77 27 3666 JSR BS 
2276: CA 3667 DEX 
2277: Dd FE 3668 BNE GLDEL3 
2279: 62 3669 SRTS4 RTS 
367Q * 
227A: BD @2 @& 3671 GLINS LDA IN,X 
27D: Fa FA 3672 BEG SRTS4 
227F: 22 5C #1 3673 JSR BLANK 
2282: 86 Fe 3674 STX BYPTR 
2284: 22 SF 22 3675 JSR GLEOL 
#287: BD @@ @& 3676 GLINSI LDA IN,X 
226A: 9D Ql 2 3677 STA IN+1, X 
28D: 22 77 27 3678 JSR BS 
2292: BA 3679 TXA 
2291: F@ a6 3680 BEQ GLINS@ 
293; CA 3681 DEX 
“2294: E4 Fe 3682 CPX BYPTR 
2296: Ba EF 3683 BCS GLINSi 


2298: ES 3684 INX 
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299: AD 2a 3685 GLINSe LDA #SP 
229B: 9D a2 2G 3686 STA IN, xX 
229E: 62 3687 RTS 

3688 * 
ee9F: AD SD 3689 KILL LDA #KFNC 
2#2A1l: 22 AB 21 3694 JSR HLINE 
ffA4: 22 Bi iF S691 JSR GETONE 
ZeA7: AM we 3692 LDY #6 
2£2A9: DO 63 12 3693 KILLI CMP KFNC1,Y 
22AC: Fla we 3694 BEG KILLe 
ecAE: 88 3695 DEY 
@e2AF: 124 FS 3696 BPL KILL1 
feBl: 4C 46 B27 3697 JMP BELL 
22b4: AD 17 3698 KILLe LDA #>NEW 
ZEBG: 48 3699 PHA 
22eB7: B9 46 15 37a LDA KSTK,Y 
feBA: 48 37a1 PHA 
eeBB: Ca a6 3722 CPY #6 
2£e2BD: FO 15 3723 BEG SRTSS 
eeBF: 24 ES 22 3724 DCHK JSR VFYDLT 
2eCe: Fa ia 3725 BEG SRTSS 
e2eC4: 6C EE 22 3726 DCHKI JMP (BRKYV) 
S747 * 
22C7: AD 3B 3728 BSUBZ LDA #BKDK 
eeC9: BE @1 2S 3749 BSUB STX SDEV 

SCC: 28 DS &e2 37108 JSR INST 
~2CF: 28 ER 22 3711 JSR VFY1 
eeDe: Da Fa sfl2 BNE DCHKi 
ee2D4: GA 3713 SRTSS RTS 

3714 * 
e2eDS: 48 3715 INST PHA 
2#2D6: AD 72 3716 LDA #ISTR 
e2eD8: £4 AG 21 3717 JSR WHLINE 
22DB: 68 3718 PLA 
SeDC: AB 3719 TAY 
#2DD: #24 AF 21 37208 JSR PUTLNS 
SfEA@: AA DS ofel LDY #DSK 
e2Ee: 4C AF 21 3722 JMP PUTLNS 

3723 * 
22E5: AS CC 3724 VFYDLT LDA #DNAME 
S2E7: 24 AB Fl 3725 VFY JSR HLINE 
SEA: AM 4D 3726 VFY1 LDY #STRING 
SeLEC: 20 Be 21 3727 JSR PUTLNM 
2e2eF: 208 Bil iF 3728 JSR GETONE 
22Fe: C9 AS 3729 CMP #"# 
H2F4: Gi 3734 RTS 

S731 * 
2erFS: AM Ae 3732 ISSRC LDA #FSTR 
e2eF7: AGB BE 3733 LDX FUNIT 
22F9: DA a7 3734 BNE ISD 
FB: AS DD 3735 ISBK LDA #BKDSK 

PFD: 2&C 3736 DFR ##2C 
e2FE: AD Ba 3737 ISDB LDA #DBNAME 
2342: AG BF 3738 ISDU LDX DUNIT 
e322: BE 21 aS 3739 ISD STX SDEV 
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3748 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3754 
37351 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3762 
3761 


¥ 
RDCHARe 
RDCHAR 


RDCHAR1L 


% 
RDCHARS 


LDY 
CPY 
BNE 
JSR 
JMP 


JSR 
JSR 
LDY 
CMP 
BEG 
DEY 
BPL. 
BCS 
RTS 


LDA 
PHA 
LDA 
PHA 
RTS 


FUNIT 
DUNIT 
SRTSS 
INST 

GETLN 


RDCHARS 
RDKEY 
#12 
GLCOTL, Y 
RDCHARE 


RDCHARI 
RDCHAR 
#) GLEND@ 


GLSTH, Y 


Page: 


793 
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2ocCes 
eSceEs 
23305 
2aSa% 
2Sau8 
2338: 
233A: 
SSB: 
233D% 
2SSE: 
2341: 
2342: 
2345: 
23464 


347 4 
\W349: 
2S4B: 
234E: 
SS s 
2353: 
eS502 
2356: 
£308: 
2gn9s 
LSaSCs “ 
235D: 
2362s 
23615 


2362 : 
2365: 
2367: 
SGA: 
236D: 
Z3G6F : 
2371: 
2374: 
2376: 
2378: 
237A: 

37C: 
“237F s 
2382: 
23B4: 


23 


1B 


1B 


14 


14 


1B 


1B 


14 


14 
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LF 
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3763 PAGE 

3764 * 

3765 *** FILE -- FMS 

3766 * 

S77 KKK KEKE KEKE KEKE KEE HE KHER ERE 

3768 * FMS for Letter Perfect * 

3769 * Version 4.24 Atari * 


* Single and double dens * 


S771 HEHEHE HEHEHE EE HEHE HHH EE 
3772 * 

3773 FILER LDA #)>)FILER 
3774 LDY #FILER 
3@l9 JSR DOSYBRK 
3776 LDX #1 

S777 JSR DOMENU 
3778 LDA #>)FILER—-1 
3779 PHA 

3782 LDA #FILER-i 
3781 PHA 

37682 LDA FSTKH-1@, X 
3783 PHA 

3784 LDA FSTKL-1i@, X 
3785 PHA 

3786 RTS 

3787 * 

3788 PRIN LDA #)>PRMN 
3789 LDY #PRMN 

3794 JSR DOSYBRK 
3791 LDX #2 

3792 JSR DOMENU 
3793 LDA #)PRMN-1 
3794 PHA 

$795 LDA #PRMN-1 
3796 PHA 

3797 LDA PSTKH-12, X 
37938 PHA 

3799 LDA PSTKL-12, X 
382m PHA 

3801 RTS 

SAa2 * 

3843 PSUBI JSR DODN 

3804 LDA #COPS 

3825 JSR HLINE 

S8a6 JSR GETLN 

3827 LDX BYPTR 
3828 BEQ FRTSi 

3809 JSR GETNUMA 
38124 BPL PSil 

3811 STA STATUS 
3812 STA STATI 

3813 BNE PSiil 

3814 JMP (BRKYV) 
3815 PS1ii JSR FETCH 

3816 CMP #CR 

3817 BEQ FRTSi 
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3818 
3819 
362 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3834 
3831 
3832 
S833 
3834 
3835 
3836 
3837 
3838 
3839 
3842 
3841 
3842 
3B43 
3844 
3845 
3846 
3847 
3848 
3849 
385 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3862 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
387% 
3871 
3872 


FRTS1 
DODN 


PSUBE 


PSee 


MLOAD 


JSR 
BPL 
LDY 
BIT 
BPL 
STA 
STY 
STA 
STY 
INC 
BEQ 
BIT 
BMI 


L.DX 
STX 
STX 
RTS 
JSR 
STX 
INX 
STX 
STX 
INX 
STX 
STX 
RTS 


JSR 
BIT 
BVC 
JSR 
LDA 
STA 
LDA 
STA 
LDX 
LDY 
JSR 
JSR 
DEX 
BNE 
LDA 
STA 
LDY 
STY 
JSR 
LDA 
STA 
JSR 
JSR 
INC 
JSR 
JMP 


GETNUM 
PS14 
VAL+1 
TEMP 1 
PS1i3 
MIN 
MIN+1 
MAX 
MAX +1 
TEMP1 
PS11 
NFLAG 
FRTS1 


#$FF 
MAX 
MAX+1 


DODNi1 
TEMP 1 


MIN 
MIN+1 


STATUS 
STAT 1 


VWARM 
MODE 
PS21 
ISSRC 
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3c 
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LOAD 


MYLOAD 
SVN 


SYN1 


FRTS& 
* 


FUNLOCK 


FLOCK 


FLU 


DOLU 


LOAD4 


LOADS 


JSR 
INC 
L.DY 
JSR 
JSR 
SEC 
ROR 
LDY 
LDA 
STA 
INY 
CPY 
BCC 
EOR 
STA 
RTS 


LDY 
LDA 
BNE 
LDY 
LDA 
STA 
JSR 
BCS 
LDY 
LDA 
ORA 
AND 
STA 
JmMp 


BCC 
LDA 
DFE 
LDA 
JMP 
JSR 
JSR 
L.DA 
STA 
LDA 
STA 
SEC 
ADC 
CMP 
BCC 
BCS 
LDA 
ORA 
BEQ 
JSR 
LDA 
STA 
LDA 


HADDR 
TXT 
#LNAME 


NAME, Y 
FNAME, Y 


#8 
SVN1 
#480 
FNAME-1, Y 


#UNFN 
#$DF 
FLU 


(DIRP),Y 
#$22 
MASK 
(DIRP),Y 
DIRW 


LOADS 
#F NF 
$20 
#FTL. 
FATAL 
TXTDADR 
HREAD 
HDRE+5 
DLEN 
HDRE+6 
DLEN+1 


TXT+1 
HIM 
LOADS 
TLERR 
HSEC 
HSEC+1 
FRTS2 
HREAD 
HDRB, Y 
DSEC 
HDRB+1, ¥ 
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MERGE 


LOAD 1 
TLOAD 


DOEOQT 


FLKERR 


FDEL1 


* 


RESAVE 


FSAVE 


FSAVEW 


Atari V6.4 Page: 43 
STA DSEC+1 
ORA DSEC 
BEQ FRTSE& 
JSR READ 
JSR ADJDA 
INC HYP 
INC HYP 
LDY HYP 
CPY BPS 
BNE LOADS 
BEQ LOAD4 
JSR TNDTXT 
LDY #FRMNU 
JSR GFONE 
JSR LOAD 
LDA TXT 
CLC 

ADC DLEN 
STA TXEND 
LDA TXT+1 
ADC DLEN+1 
STA TXEND+1 
LDY #2 

LDA #E0OT 
STA (TXEND),Y 
JMP HADDR 
LDY #DNAME 
JSR GFONE 
BCS FNFERR 
LDA HTYP 
AND #22 
BEG FDEL1 
LDA #FLE 
JMP FATAL 
JSR DCHK 
JSR DODEL 
JSR DLDIR 
JMP VTOCW 
LDA HTYP 
AND #212 
BNE FLKERR 
JSR DODEL 
BEQ FSAVEe (bra) 
LDA SVFLG 
STA EMODE 
JSR HADDR 
INC TXT 
LDY #SNAME 
JSR GFONE 
BCC RESAVE 
BIT DFLAG deleted? 
BPL FSAVEL 
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39a3 LDA DSEC 

3984 STA DIRS 

3985 LDA DSEC+1 

3986 STA DIRP 

3987 JSR DRRD1 

3988 FSAVE1 LDA DIRS 

3989 CMP MDS 

3990 BCS DFULL 

3991 FSAVE2 LDA #"L 

3992 STA HTYP 

3993 JSR TXTDADR 

3994 SEC 

3995 LDA TXEND 

3996 SBC TXT 

3997 STA DLEN 

3998 LDA TXEND+1 

3999 SBC TXT+1 

42 STA DLEN+1 

4004 JSR CCNTS 

4002 JSR FNDTRK 

403 JSR FTSa 

4004 JSR DISV 

4005 BCC FSAVE4 (bra) 

4206 FSAVES JSR FTS 

47 FSAVE4 JSR WRITE 

4208 JSR ADJDA 

4009 LDX #DCNT 

4012 JSR DECR 

AML 1 LDA DCNT 

412 ORA DCNT+1 

413 BNE FSAVES 

4014 JSR HDRWT 

4015 JSR vTocw 

4216 JSR HADDR 

4217 JMP SVN 

4218 * 

4219 FNDTRK LDX #2 

age STX DSEC 

42 1 STX DSEC+1 4 
4022 DEX 

4@23 FNDTRKi —INX & a be 
4024 CPX #$5B — ie 4\,6 
4025 BCC FNDTRK& \o 
4026 JSR DLDIR ns 
4027 DFULL LDA #DFE 41. A 
4028 JMP FATAL 

4029 FNDTRK2 LDA VTOCB+ia, x: 

4032 BNE FNDTRKS 

431 LDA #8 

4032 OLc 

433 ADC DSEC 

4034 STA DSEC 

435 BCC FNDTRK1 

436 INC DSEC+1 

4137 BCS FNDTRK1 
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4238 FNDTRKS 
4439 

42410 

4241 FNDTRK4 
4042 FNDTRKS 
4243 

4244 

4045 

4046 

4247 

4248 * 
4249 DIR 
42Sia 

4451 

4052 

4Q53 

4054 DIR1i 
4055 

456 

4457 DIR 
4258 

4259 

42621 

4261 

4062 

426.3 

41164 

4265 

4266 

4267 PRFN1 
468 

4269 

4272 PRFN2 
427 1 

472 

4273 

4274 

44735 

4276 

477 

4278 

4279 

4282 

4281 

4282 

4283 DIRS 
4184 

4485 

4286 DREX 
4287 

42188 

4489 

4292 

4491 

4492 DREX1 


DSEC 
FNDTRK4 
DSEC+1 


FNDTRKS 
BMAP 

#$FF 
VTOCB+SA, X 
VTOCB+$A, X 


DRSUP 
SCRDO 
#DLOGO 


(DIRP),Y 
DREX 
DIRS 


COUT 


(DIRP),Y 


(DIRP), Y 
PRDF 
BLANK 
UDIRP 
DIRZ 


VAL+1 


Page: 
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4293 
4294 
4295 
4296 
41297 
4298 
4299 
4122 
4111 
4102 
4123 
4124 
4125 
4126 
41127 
4128 
4129 
41112 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4122 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4132 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4142 
4141 
4142 
4143 
4144 
4145 
4146 
4147 


DREXe2 


DREXS 


DREX4 


* 
GETNAME 
GETN1 


NONAME 
GNAME@ 


© Alam oy 
GNAME 


GNAME 1 


GNAMES 


BADN 


GNAMES 


GNAME4 


BEQ 
LDY 
ASL 
BCC 
INC 
BNE 
INC 
DEY 
BNE 
INX 
CPX 
BCC 
CLC 
JSR 
JMPp 


JSR 
JSR 
LDA 
JSR 
LDY 
JSR 
LDA 
LDY 
JSR 
L.DX 
BNE 
JMP 
LDA 
STA 


STY . 


JSR 
LDY 
L.DA 
STA 
DEY 
BNE 
L.DX 
LDA 
INY 
CMP 
BEQ 
CMP 
BEG 
CMP 
BCS 
LDA 
JMP 
LDA 
INY 
CMP 
BEG 
CMP 
BEG 
STA 


Page: 8&6 


DREX4 
#8 


DREXS 
VAL 

DREXS 
VAL+1 


DREXe2 


#$5B 
DREX1 


PRVAL 
SCRDO 


CLS 

DIR 
YREG 
HLINE 
#F ILE 
PUTLNE 
#) FNAME 
#F NAME 
GETLN 
BYPTR 
FRTSS 
(BRKV) 
FUNIT 
SDEV 
YREG 
GETNAME 
#11 

#5P 
NAME-1, Y 


GNAME 1 
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4148 
4149 
4154 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4162 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4172 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
41812 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
41912 
4191 
4192 
4193 
4194 
4195 


GNAME X 
GNME X 


FRTSS 
¥% 


GFONE 
* 


FNDNAME 


FNME 1 


FNNF 


FNMEe 


FNMES 
FNME4 


FNMES 


4196 | 


4197 
4198 
4199 
4202 
4201 
4202 


NXTNME 


INX 
BNE 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
RTS 


JSR 


LDA 
STA 
JSR 
JSR 
JSR 
BCC 


SEC - 


RTS 
LDY 
LDA 
BEG 
BPL 
BIT 
BMI 
LDA 
STA 
LDA 
STA 
DEC 
RMI 
LDY 
L.DA 
CMP 
BNE 
INY 
CPY 
BCC 
LDY 
LDA 
STA 
DEY 
BPL 


Page: 87 


GNAMES 
#8 
NID-8, Y 
NAME, Y 


#11 
GNMEX 


GNAME 


#2 
DFLAG 
DRSUP. 
DPSET. 
DIRRD. 
FNME= 


deleted file flag 


#a 

(DIRP),Y 

FNNF 

FNMES 

DFLAG 

NXTNME 

DIRS 

DSEC 

DIRP 

DSEC+1° 

DFLAG 

NXTNME 

#5 2 
HTYP,Y —> Dare 
(DIRP), Y 


att 


HTYP, Y 


(DIRP),Y 
SCOUT 


#$D 


FNME 6 


UDIRP 
FNME2 
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27095 
7B s 
27QD: 
m7QF s 


2714: 
2712s 
2713: 
2715: 
e7iits 
e71A: 


2718: 


71D: 
e/7iEs 
2e7eis 


2722: 
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4203 
4204 
4225 
4206 
4207 
428 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
42:18 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4232 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4242 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 


* 
FORMAT 


FMT 1 


FMT& 


FMT3 


* 


> 


Page: 


BEQ FNME1 
LDX FUNIT 
JSR BSUBA 
JSR DINIT 
JSR CLRH 

LDX MDS 

DEX 

STX HSEC 

LDA #1 

STA HSEC+i 
JSR HDRWT 
DEC HSEC 

LDA HSEC 

CMP VTS 

BNE FMTi 

LDA #¢FF 

LDX #59 

STA HDRB+#A, X 
DEX 

BNE FMT 

BIT BPS 

BPL FMT3 

STX HDRB+$37. 
LDA #$3F — 
STA HDRB+$38 
STA HDRB+$A 
JMP HDRWT 
STX HDRB+$z2A 
LDA #$F 

STX HDRB+4A 
“IMP HDRWT 


KREEKEKEEEEREEKEKRRHEERE 


* Subroutines 


* 


KEKE EKEKKKKREEEE 


* 
DPSET 


UDIRP 


LDA 
STA 
LDA 
STA 
RTS 


LDA 
CLC 


#>DIRE 


DIRP+1 | 


#DIRB 
DIRP 


#12 


DIRP 


DIRP 
BPS 


88 
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4258 
4259 
4262 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
42714 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
428 
4261 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
42912 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
432 
43121 
4302 
4343 
4314 
4305 
4316 
4327 
438 
439 
4312 
4311 
4312 


* 
HREAD 


CCl 


CC4 


DODEL. 


DLEN+1 


#2 
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4313 JSR FREE 
4314 JSR HREAD 
4315 DODEL1 LDA HDRB, Y 
4316 STA DSEC 
4317 LDA HDRB+1,Y 
4318 STA DSEC+1 
4319 ORA DSEC 
4320 BEQ FRTS4 
4321 JSR FREE 
4322 INC HYP 
4323 INC HYP 
4324 LDY HYP 
4325 CPY BPS 
4326 BNE DODEL1 
4327 BEQ DODEL 
4328 * 

4329 DOHDR JSR FNDTRK 
4330 LDA DSEC 
4331 STA HDRE+1 
4332 LDA DSEC+1 
4333 STA HDRE+2 
4334 JSR HDRWT 
4335 FTS@ JSR CLRH 
4336 LDA DSEC 
4337 STA HSEC 
4338 LDA DSEC+1 
4339 STA HSEC+1 
4342 LDX #3 
4341 COPYL LDA DADR, xX 
4342 STA HDRB+3, X 
4343 DEX 

4344 BPL COPYL 
4345 LDY #8 
4346 STY HYP 
4347 FTS LDY HYP 
4348 CPY BPS 
4349 BEQ DOHDR 
435@ JSR FNDTRK 
4351 LDY HYP 
4352 LDA DSEC 
4353 STA HDRB, Y 
4354 LDA DSEC+1 
4355 STA HDRB+1,Y 
4356 INC HYP 
4357 INC HYP 
4358 FRTS4 RTS 

4359 * 

4362 ADJIDA LDA BPS 
4361 BEQ ADAI 
4362 EOR DADR 
4363 STA DADR 
4364 BMI FRTS4 
4365 ADAL INC DADR+1 
4366 RTS 


4367 
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a3 
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BMAP 


BMAP 1 


BMAPE 


LDA 
STA 
AND 
TAY 
LDX 
LDA 
LSR 
ROR 
DEX 
BPL. 
L.DX 
LDA 
SEC 
ROR 
DEY 
BPL. 
RTS 


JSR 
ORA 
STA 
RTS 


BMAP 
VTOCB+$A, X 
VTOCB+$A, X 


KEKE EKHEREEE 


* Hardware routines ¥* 
HHH HHH HH HEE EH HEE EHH 


* 
STEF 


VTBF 
TOBF 


% 
DBREAD 


RD1 


LDA 
DFR 
LDA 
STA 
LDY 
STY 
RTS 


LDA 
JSR 
CLC 
BCC 


CLC 
DFE 
SEC 
LDA 


#) START 
$20 
#> VTOCB 


#) DATAB 
TOBF 


RD1 


$B 


DADR 
IOBR 
DADR+1 
TOBB+1 
DSEC 
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4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4442 
A444 
4442 
4443 
Aad 
4445 
4446 
4447 
4448 
4449 
4452 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4462 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4472 
4471 
4472 
4473 
4474 
4475 
4476 
4477 


HDRD1 


DIRRD 


DCOM1 
RWUP 


FRTSS 


LDA 
LDY 
STA 
STY 
LDA 
JSR 
BEQ 
INC 
LDA 
CMP 
BCC 
RTS 


LDY 
LDA 
ORA 
BMI 
LDY 
LDA 
STA 
DEY 
BPL 
SEC 
DFB 
CLC 
LDA 
JSR 
LDA 
BNE 
LDA 
STA 
CLC 
DFB 
SEC 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
LDX 
LDY 
LDA 
BCS 
LDY 
LDA 
STX 
oly 
STA 
JSR 
TYA 
BMI 
CLC 
RTS 


Page: 92 


HSEC 
HSEC+1 


SECT 


SECT+1 
#) HDRE 
TOBF » 
DcoM 


DIRS Ov 


DIRS x yr 


MDS 
DRRD1 


#2 
(DIRP), Y 
#982 
DISV2 
#9F 
HTYP, Y¥ 
(DIRP),Y 


DISV1 


$92 
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rea) 
2a 
RE. 
A 
Da 


Az 
AQ 
85 
AS 
9D 
2 
98 
7) 
84 
AS 
22 
&C 


a4 
3 
Az 
86 
A 
9D 
Ag 
9D 
AS 
9D 
Ag 
9D 
A 
4C 


AC 
AD 
i 
8D 
AQ 
8D 
62 


a3 
E4 


21 
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4478 
4479 
44817 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4492 
4491 
4492 
4493 
4494 
44935 
4496 
4497 
4498 
4499 
45a 
45a1 
4502 
453 
45124 
4545 
456 
43517 
4528 
4549 
4512 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4524 
4521 
4522 
45235 
4524 
4525 
4526 
4527 
4528 
4529 
4534 
4531 
4532 


DINIT 


* 
CLOSEP 


CLOSE i 
CIODO 


DSKERR 


FATAL 


% 
POPENP 


OPENP 


COMOP 


* 
NDVSET 


DVSET 


* 


JSR 
JSR 
L.DX 
LDY 
BNE 


LDX 
LDA 
STA 
LDA 
STA 
JSR 
TYA 
BPL. 
STY 
LDA 
JSR 
JMP 


BIT 
BMI 
L.DX 
STX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JMP 


LDY 
LDA 
STY 
STA 
LDA 
STA 
RTS 


OSTREAM 
#$C 
ICMND, X 
c1o 


FRTSS 
XREG 
#I0E 
PRERR 
(BRKV) 


MODE 
FRTSS 
#$32 
OSTREAM 
#PID 
IBUFF, X 
#) PID 
IBUFF+1, X 


DVLEN+1 
DVLEN 
#$31 
DDEV 


KEKE HKEEKEREKHEEKHHKREREE 


* DBopern and DBfetch * 
HEM HLH HEH EHH EH EEE 


* 
DBOPEN 
DBOPEN1 
DBOPN2 


ISDE 
#11 

NAME1, Y 
NAME, Y 


DBOPNE 
FNDNAME 
DBOPNS 
FNFERR 
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error # 


out put 
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4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4552 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4562 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4572 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4562 
4581 
4582 
4583 
4584 
4585 
4586 
4587 


DBOPNS 


SGLDB 
DOINFO 
DBOPN4 


* 
RFETCH 


RF 1 


NOMORE 


RF& 
RFS 


RF4 


BIT 
BMI 


LDA 
LDY &. 


CLC 
JSR 
BCC 
JSR 
LDX 
LDA 
STA 
DEX 
BPL 
L.DA 
STA 
BMI 
JSR 


LDA 
ORA 
BEQ 
LDX 
JSR 
L.DX 
STX 
JSR 
STA 
STY 
LDA 
STA 
LDY 
CPY 
BNE 
LDY 
CPY 
BNE 
LDA 
ORA 
BNE 
SEC 
RTS 
JSR 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
ORA 
BEQ 
JSR 
LDY 
STY 
LDA 


HDRE+3, X 
FCNT, X 


DBOPN4 
BPS 
DYP 
RFETCH 
HREAD 


PARAM+$24 
PARAM 
FUNIT 
SDEV 

DYP 

BPS 


DYP 
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4588 INY 

4589 CMP #SP 

4594 BCC RFS 

4591 JSR INCVAL 
4592 STA (VAL, X) 
4593 CMP #CR 

4594 BEQ RFG 

4595 RFS CPY BPS 

4596 BNE RF4 

4597 BEG RFi 

4598 RFG STY DYP 
4599 INC COUNT 
4622 LDA FCNT 

4612 1 CMP COUNT 
4602 BCC RF7 

4683 LDX COUNT 
46104 LDA VAL 

4625 STA PARAM, X 
4626 LDA VAL+1 
46127 STA PARAM+$212, X 
46128 BNE RFS (bra) 
4629 RF7 BIT DBFLAG 
46112 BPL. RFFND 
4611 LDX #2 

4612 RFS LDA DBBUFF, X 
4613 LDY #2 

4614 CMP #CR 

4615 BNE RFS1 
4616 JMP RFETCH 
4617 RFS1 LDA SRCH,Y 
4618 CMP DBBUFF, X 
4619 REG RFFND 
4624 INY 

4621 CMP #CR 

4622 BNE RFSI 
4623 INX 

4624 BNE RFS (bra) 
4625 RFFND JSR CLS 

4626 JSR DBVAL 
4627 INY 

4628 STY COUNT 
4629 DBPR JSR INCVAL 
463 LDA (VAL, X) 
4631 CMP #CR 

4632 BEG DBPRi 
4633 JSR SCOUT 
4634 BNE DBPR 
4635 DBPRI1 JSR SCRDO 
4636 INC COUNT 
46.37 LDA FCNT 
4638 CMP COUNT 
4639 BCS DBPR 
4642 RTS 

4641 * 

4642 DBVAL LDA #)>DBBUFF-1 
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4643 STA VAL+1 
4644 LDY ##FF 
4645 STY VAL 
4646 RTS 

4647 * 

4648 FBUP JSR DCHK 
4649 JSR NEW 
4652 LDX DUNIT 
4651 JSR BSUBZ 
4652 JSR DINIT 
46353 JSR ISSRC 
4654 JSR VTOCR 
46355 LDY #2 
4656 STY DSEC+1 
4657 STY DSEC 
4658 STY COUNT 
4659 BEQ FB 
4662 FBI JSR ISSRC 
4661 FBe JSR STBF 
4662 FBS LDX  #DSEC 
4663 JSR INCR 
4664 LDA DSEC+1 
4665 CMP #2 
4666 BNE FB4 
4667 LDA DSEC 
4668 CMP #¢D1 
4669 BCS FES 
46724 FB4 JSR BMAP 
4671 AND VTOCB+12, X 
4672 BNE FBS 
4673 LDY COUNT 
4674 LDA DSEC 
4675 STA SECT 
4676 STA HDRB, Y 
4677 LDA DSEC+1 
4678 STA SECT+1 
4679 STA DIRE, Y 
4682 INC COUNT 
4681 LDA #1 
4682 JSR RBLK 
4683 LDA IOBB+1 
4684 CMP HIM 
4685 BCC FERS 
4686 FBS LDY COUNT 
4687 BEQ FB7 
4688 3;LDX DUNIT 

4689 JSR ISBK Chad 15 sep (was ISDU) 
469121 JSR STBF 
4691 STY MAX 
4692 FBG LDY MAX 
4693 LDA HDRB, Y 
4694 STA SECT 
4695 LDA DIRE,Y 
4696 STA SECT+1 
4697 LDA #1 
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a 
EG 
Ce 
Da 
Fi 
4C 


AS 
ra) 
Aa 
BE 
Pa) 


6C 


82 
6A 
7e 
3C 
a7 
A 
ic 


28 


82 
2 
14) 
2) 
ae 
7B 


LETTER PERFECT Atari V6.4 Page: 97 
4698 JSR WRBLK 
4699 INC MAX 
4722 DEC COUNT 
4721 BNE FRG 
4722 BEQ FEI 
4743 FR7 JMP NEW 
4724 * 

47435 EXIT LDA #BTDSK 
4726 JSR BSUE 
4717 LDX #¢$FF 
4728 STX COLDST 
479 JSR VOFF 
471% ;JMP $AESA 

4711 JMP ($FFFC) 
4712 %* 

4713 BPS DFW #82 
4714 VTS DFB 6A 
47135 MDS DFB #7<e 
4716 SPH DFB 62 
4717 DTMN DFB 7 

4718 DTMF DFB i164 
4719 SPNB DFB 18 
4722 MXB DFB 4& 
4721 * 

4722 DTBL DFR #82,2%, $6A, $72,620, 7, 162,18, 42 


4723 
4724 


DFB 


/ 
/ 


@, 1,2, 8, 124, $F, $7B, 9, aa 
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2B 


a5 
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4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
A741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4752 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4762 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 


PAGE 


HEX 
HHH 
HER 
WRDADD 


15 SEP 
INC 
LDX 
JSR 
BCS 
JSR 
CLC 
ADC 
STA 
STA 
JSR 
JSR 
LDY 
LDA 
STA 
INY 
CPY 
BCC 
LDX 
JMP 


WAI 
WAZ 


MVR LDA 
STA 
DEY 
CPY 
BNE 
DEC 
DEC 
DEX 
BNE 
RTS 
MSUB LDA 
STA 
STA 
LDA 
SEC 
SBC 
TAY 
LDA 
SBC 
TAX 
INX 
RTS 
MSUB1 LDA 
CLC 
ADC 
STA 
BCC 
INC 


DRTSS3 RTS 


THIS IS FILE SUE 


COUNT 
#UWEND 
PTOGC 
WAL 
MSUB 


(VPTR), Y 
(GPTR),Y 


#$FF 
MVR 
GPTR+1 
VPTR+1 


MVR 


PTR 
GPTR 
VPTR 
Loca, x 


PTR 


LOCI, X 
PTR+1 


LEN 


GPTR 
GPTR 
DRTSS 
GPTR+1 


7 Feb-1984 


LF 


2B 
2 
2B 


2B 
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* 

* 
DELTXT 
DELWRD 
DELWZ 


FWRD 


FWRD1 


JSR 
LDX 
STX 
LDA 
STA 
STA 
JSR 
JSR 
JSR 
L.DX 
LDA 
SEC 
SBC 
STA 
BCS 
DEC 
RTS 


LDY 
LDA 
STA 
INY 
BNE 
INC 
INC 
DEX 
BNE 
RTS 


LDA 
STA 
LDY 
= i 
LDA 
JSR 
BCS 
STA 
INY 
BNE 
STY 
INY 
JSR 
CPY 
BCS 
SEC 
RTS 


ORA 
CMP 
BCC 
CMP 
RTS 


TXTPTR 
#UWEND 
XREG 
PTR+1 
GPTR+1 
VPTR+1 
MSUB 
MSUB1 
MVL. 
XREG 
LOC, X 


LEN 
Loca, x 
DRTS3 
LOC1, X 


#2 
(GPTR),Y 
(VPTR), Y 


MVL 1 
VPTR+1 
GPTR+1 


MVL.1 


SOUNDE X 


#$212 
#" a 
BAD 
#"2+1 


Page: 99 


CS = not alpha 
save this char 


(bra) 


Y is up 1 too high 
valid word, get soundex 
Signal no word 


7 Feb-1984 


FE a5 
FF 2s 


A 


FF @S 
FE @5 
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4836 
4837 
4838 
4839 
484 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4854 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4862 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
48712 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
48812 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4894 


SOUNDEX 


GSNDX1 


GSNDX2 


GSNDXS 


GSNDX4 


SRCHU 


SRCDA 


SRCD1 


LDX 


STY 
LDA 


RTS 


LDA 


(VPTR),Y 
VAL 
GSNDX3 
VAL 


SNDEXTB-"a, X 


GSNDX3 
#2 


SNDX+1 
SNDX 


GSNDXz2 
TEMP1 
GSNDX4 


LEN 
GSNDX1 
LEN 


LEN 
LEN 
(VPTR),Y 
#$80 
(VPTR), Y 


#) DSPC 
#DCEND 
SRCDa 
UWSTART 
#UWEND 
PTR+1 
MIN 
VAL 
Loca, x 
GPTR 
LOC1, X 
GPTR+1 
MAX 
MAX 


MIN 
DOSR 


MIN 
SVSUB 


Page: 


12a 


ADD SOUNDEX TO A WORD 
MAXIMUM S CHRS 


DUPLICATE CHR ? 


MAKE THE NEW THE LAST 
NOW MOVE FOR INDEXING 


DO NOT ADD IF ZERO 


flip hi bit on last char 


MAKE SURE IT EXITS WITH CC 


begin of unique words 


set ending 
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Pa) 
Fa 
BQ 
Ae 
2c 
A 
AS 
95 
Da 
AS 
Pai) 
4C 
22 
Pa 4) 
Ba 
22 
Fi 
Ba 
6A 
18 
62 


85 
A 
84 
CS 
Fa 
22 
A 
faa) 
4C 


A 
BS 
Di 
dg 
Ca 
C4 
92 
62 


A 
C8 
Bl 
99 
14 
a) 
92 
C8 
84 
74 


Ala) 
Bi 
AA 


12) 
9E 


2c 


aS 


as 


LETTER PERFECT Atari Vé.a Page: ii 
4891 JSR SRCHW 
4892 BEG DRTS4 
4893 BCS SREDe 
4894 LDX #MAX 
4895 DFB #2C 
4896 SRCD2 LDX #MIN 
4897 LDA PTR+1 
4898 STA LOCA, x 
4899 BNE SRCD1 
49212 DOSR LDA MIN 
491 JSR SVSUB 
4922 JMP DOSRE 
43923 DOSR1 JSR PSKUP 
4924 DOSRE JSR PTOGC 
4915 BCS DOSRS 
4946 JSR SRCHW 
4917 BEG DRTS4 
49128 BCS DOSR1 
4929 DOSRS ROR 

4914 CLC 

4911 DRTS4 RTS 

4912 * 

4913 SVSUB STA PTR+i 
4914 LDY #2 

4915 STY PTR 
4916 CMP VAL 
4917 BEQ DRTS4 
4918 JSR PSKUP 
4919 LDY #2 

4922 JSR SPW1i 
4921 JMP YPTR 
4922 % 

4923 SRCHW LDY #12 

4924 SRW1 LDA SNDX,Y get char from word.. 
4925 CMP (PTR),Y 2.2. 8ee if matches table char 
4926 BNE DRTS4 
4927 INY 

4928 CPY LEN 
4929 BCC SRW1 
4934 RTS 

4931 * 

4932 TTOS LDY ##FF 
4933 TTOS1 INY 

4934 LDA (TXT),Y 
4935 STA SNDX,Y 
4936 BPL TTOS1 (Apple) 
4937 CPY #4 

4938 BCC TTOS1 
4939 INY 

4942 STY LEN 
4941 RTS 

4942 % 

4943 TSX1 LDY #2 

4944 LDA (TXT),Y 
4945 TAX 
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Ss 
ne) 


2C 
eu 


rel) 


3a 


3a 
radu 
2C 


22 
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4946 
4947 
4948 
4949 
4954 
4951 
49352 
49353 
4954 
4955 
4956 
4957 
49358 
4959 
4962 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4974 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4982 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4994 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
rei 474174) 


* 
SKPWRD 
SPW1 


IPRC1 


PRCNT1 


PRWC 


PRCNTS 
PRCNT 


PRCC 


* 
PTOGC 


TDCC 


PTWD 


INY 
LDA 
RTS 


LDY 
LDA 
INY 
ASL. 
BCC 
RTS 
JSR 
JMP 


LDA 
STA 
LDY 
STY 
RTS 


L.DX 
JSR 
LDA 
LDX 
LDY 
BNE 


JSR 
LDA 
STA 
LDY 
JSR 
JSR 
JSR 
LDA 
L.DX 
LDY 
STY 
JMP 


LDA 
CMP 
LDA 
SEC 
RTS 


LDA 
Chip 
LDA 
SBC 
RTS 


LDA 
CLC 
ADC 
TAY 


(TXT), ¥ 


#4 
(PTR), Y 
SPW1 


SKPWRD 
YPTR 


UWSTART 


TXT+1 
DCEND+1 


Page: 


1i@e 


(Apple) 
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21 
21 
2C 


iF 
4. 


a7 
Zi 4 


mi) 
i 


ai 
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Zi 1 
Sade 
par 474 
saa 4 
sas 
SAE 
oaa7 
Saa8 
sag 
said 
ror] 
sale 
SAL S 
wa1 4 
wai 
a1 
3417 
sais 
s219 
we 
Se 1 
see 
s23 
oie 
oMe25 
SIZE, 
oe7 
SAz8 
sae29 
SAS 
SAS 1 
SaSE 
SASS 
SAS 4, 
SASS 


GCHAR 


GCHARI 


GCHARZ 


BCHARS 


DRTSS 
% 


PRNL. 


PRNL 1 


LDA 
ADC 
RTS 


PHA 
STY 
STX 
LDA 
JSR 
PLA 
JSR 
JSR 
LDY 
CMP 
BEQ 
DEY 
BPL. 
JSR 
BNE 
STY 
JSR 
LDY 
RTS 


STA 
L.DA 
STA 
STA 
L.DY 
LDA 
BEG 
JSR 
INY 
BNE 


TCNT 
(GPTR),Y 
GCHARZ 


GCHARZ 
BELL 
GCHARI 
TCNT 
DREST 
TCNT 


VPTR 
#) SPOPT 


(VPTR),Y 
DRTSS 
COUT 


PRNL 1 
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mm 
4 


2DME s 
2Dils 
2D14: 
2D17:% 
2D1iA: 
eDiDd: 
2DIF: 
2D2e: 
eDE4: 
2D26: 
2DZ8: 
2DeA: 
e2D2C: 
2DZE: 
2DSa: 
2D33: 
2D36: 
EDS7: 
2DSA: 
2DSB: 
=@DSD: 
2D425 
2D42: 
“44s 
ae Od 
2D48: 
ZD4A: 
Z2D4B: 
2D4D: 
ZD4F : 
2D51: 
2DS4: 
2D57's 
2DS9: 
2DSC: 
ZDSF: 
2D62: 
eD65: 
2bD6é8: 
EDGER: 
2D6E: 
2D7a: 
2eD7e: 
2D74: 
2D76: 
2£D78: 
2D7A: 
2D7Cs 
-2D7E: 
. sons 
2DS4: 
=2D87: 
2DBA: 


2E 
2F 
3a 
aF 
aF 


1F 


LETTER PERFECT Atari V6.4 Page: 124 

Sasé PAGE 

wAS7 * 

S@38 SPELL JSR SPSUB1L 

Sa39 JSR SPSUBE2 

S42 JSR INDICT Get dictionary mounted 
S24 1 JSR ZCNT 

S42 JSR SPSUBS 

S243 LDA UWSTART 

S44, JSR TOTXT@ Mave UWSTART toa TXT 
Sa45 STA APTR+1 

S246 STY APTR 

S247 SPELL1 LDA TXT 

S48 CMP UWEND 

Sa49 LDA TXT+1 

Sa52 SBC UWEND+1 

sai BCS DOCHK 

rai] A bai JSR TSX1 

S@S3 JSR FGSN 

S@54 SPELL2 PHP 

S355 JSR TTOS 

Sas6é PLP 

oS 7 BCS SPELLS 

S258 JSR SRCHD 

S5as9 BCS SPELL4 

S2e’ BMI SPELLS 

S261 SPELLS LDY #2 

S262 SP3A LDA (TXT),Y 

bol] A or STA (APTR),Y 

S264 INY 

S65 CPY LEN 

S66 BCC SPSA 

S267 LDX #APTR 

Sae8 JSR YUP 

S269 JSR IPRC1i 

S272 SPELL4 LDY LEN 

oZ7 1 JSR YTXT 

Sa7z JSR INCPGN 

S273 JSR PRCNT 

S74 JMP SPELLI1 

S@7S SPELLS JSR GNE 

S276 JMP SPELLe 

3477 DOCHK JSR PRTDCT not in search anymore 
3478 LDY APTR+1 

S279 STY UWEND+1 

Sawa L.DA APTR 

S281 STA UWEND 

Kal] Ao Po BNE DOWRDS 

SaaS CPY UWSTART 

S84 BNE DOWRDS ok, words left 
Saas LDA #NUL no unlisted wards 
SBE JSR HLINE show to user 
S287 JMP GETONE and exit quietly 
S488 DOWRDS JSR TEBLNS print lines around text 
Saag JSR HADDR go to start 

Sago INC TXT for LP 
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re 
ra 


Ze, 


LETTER PERFECT Atari V6. Page: 1245 

5491 DOW1 JSR CMP1lz2 

bel] = Pd BCC DOWe 

oa9S JSR ISSRC make sure file disk ok 
S294 JMP FSAVE and save it 
SZ95 DOWe LDX  #ADR Save positicn 
S296 JSR TXTO 

wa97 JSR FWRD@ valid word? 
3238 BCS DOW1 na, try again 
S299 JSR PRTXT show the ward 
Slag JSR SRCHU is it unlisted? 
51@i BCC DOW1 na, goa to next 
side WRDOP LDY #SPOPT 

Silas LDA #SPOF 

S124 LDX #3 

S145 JSR GCHAR options for user 
S1lae CPY #1 

3127 BEQ SPMAT Match it 

3128 BCC SPIGN ignore 

S1a9 CPY #2 

s11i2 BEG SPCHG Change it 

g111 LDA #GSTR 

Lic JSR VFY Quit is only one left 
S113 BNE WRDOP Redo option list 
S114 RTS 

DLS * 

5116 SPMAT CLE 

5117 DFB Hz 

9118 SPCHG SEC 

a A = LDA PTR 

S124 STA APTR 

s1le21 LDA PTR+1 

size STA APTR+1 

ales LDY LEN 

S1le4 STY LEN1 

5125 BCS SPCHG1 

S126 JSR DCMATCH 

aL? PHP 

sles JSR HOME 

p129 LDA #18 

S134 JSR CLEOW 

S131 PLP 

5132 BCC SPCHG1 

5133 Nooo JSR ADRTXT 

S134 JMP DOW1 

o135 * 

S136 SPCHG1 JSR EWRD 

5137 BCS NOGO 

5138 JSR FWRDA 

S139 BCS NOGO 

S14 LDY LEN 

S141 DEY 

Si4é2 DEY 

53143 STY BYPTR 

5144 SPCi LDA IN, Y 

5145 AND ##7F (ORA #82 on Apple) 


7 Feb-1984 


99 Ca aS 


2B 


2D 


if 


2E 
1E 


LF 
2B 


LETTER PERFECT Atari V6é.a 


SPCe 


SPIGN 
* 


TSRCHZ 


TSRCH 


TSRCH1 


TSRCHE 


TCONT 


STA 
DEY 
BPL 
LDA 
SEC 
SBC 
BCS 
EOR 
ADC 
CLC 
ROR 
STA 
JSR 
JSR 
JSR 
LDY 
INY 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JMP 


LDY 
LDA 
JSR 
L.DX 
LDY 
LDA 
AND 
BNE 
INY 
LDA 
AND 
BNE 
L.DX 
STA 
STX 
TYA 
LSR 
ROR 
JSR 
JSR 
BCC 
RTS 
JSR 
JSR 
BCS 
LDY 
CPY 
BNE 


TSRCH1 


(TXT), Y 
#920 
TSRCH1 
#$DF 
MASK 
MASK+1 


TEMP 
RPLACE 
CMP1z2 
TCONT 


TXTG 
FWRD@ 
TSRCHe 
LEN 
LEN1 
TSRCH2 


Pages 126 


not needed? 


restore text 


set up mask and temp 
LC UP i1UP 

orm $22 $20 $20 

and FF DF FF 


($DF on Apple) 
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BB 
Bl 
D9 
D2 
88 
1m 
re) 


AS 
Fi 


4 


Se i 


20 
2 
A4 
2 
Aa 
Bi 
91 
cg 
Fa 
ce 
pa 
EG 
EG 
pa 
98 
18 
65 
as 
AS 
69 
85 
pa 
AS 
a5 
AS 
as 
A4 
Aa 
a 
Az 
Al 
91 
Az 
a 
AS 
cs 
AS 
ES 
BQ 
aa 
AD 
24 
12 


aS 


LE 
1F 


19 


aS 


LETTER PERFECT Atari V6.4 Page: 127 
Sei DEY 

S2a2 TSRCHS LDA <(APTR),Y 
Seas CMP SNDX,Y 
Sea4 BNE TSRCHe 
S225 DEY 

Sea BPL TSRCHS 
5227 BMI TSRCH@ 
5eaa * 

S5e2a9 RPLACE LDA MAX 
seid BEG RPLWD no ins or del 
s2ii BIT MAX+1 
vel2 BMI INSRT 
5213 JSR TXTPTR 
5214 JSR TXTG 
5215 LDY MAX 
s216 JSR YPTR 
5217 LDY #2 

S218 DELI LDA (PTR),Y 
5219 STA (GPTR),Y 
S224 CMP #E0T 
S221 BEQ DEL2 
jeee INY 

See3 BNE DEL1 
5ec4 INC PTR+1 
S2e5 INC GPTR+1i 
5226 BNE DELi (bra) 
See7 DELe TYA 

Se22a CLEC 

5229 ADC GPTR 
Ses STA TXEND 
S231 LDA GPTR+1 
5232 ADC #2 

5233 STA TXEND+1 
S234 BNE RPLWD 
5235 INSRT LDA TXEND 
5236 STA PTR 
5237 LDA TXEND+1i 
5238 STA PTR+1 
3239 LDY MAX 
S242 LDX  #TXEND 
S241 JSR YUP 
S242 INSRT1i LDX #2 

5243 LDA (PTR, X) 
Se44 STA (PTR), Y 
5245 LDX #PTR 
5246 JSR DECR 
S247 LDA PTR 
5248 CMP TXT 
S249 LDA PTR+i 
S252 SBC TXT+i1 
5251 BCS INSRTi 
S252 RPLWD LDY #2 

S253 LDA TSTR 
5254 BIT TEMP 
se55 BPL RPLWD2 
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el 


4A 


4B 


3a 
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S256 
velar 
S208 
9259 
weed 
S261 
JeGe 
I263 
IL64 
3265 
L266 
a6 7 
3268 
S269 
we 7 
S271 
s272 
9273 
S274 
s275 
S276 
ae a 
3278 
3279 
S282 
281 
bes mt Po 
283 
3284 
S285 
286 
3287 
3288 
S289 
e292 
vel 
9292 
3293 
S294 
oe 
3296 
3297 
5298 
9299 
por 74) 74) 
S321 
eal Ao 
S343 
304 
waaS 
SSE 
wo 7 
5328 
S329 
s3gia 


RPLWD1 
RPLWDE 


RPLWDS 


* 
SPSUB1 


SPL 


SPL1 


CLRUW 


ZCNT 


SPSUBE 


AND 
BNE 
LDA 
ORA 
AND 
STA 
INY 
CPY 
BCC 
TINY 
JMP 


JSR 
JSR 
BIT 
BPL. 
LDA 
LDY 
JSR 
L.DX 
LDA 
STA 
INX 
BNE 
STA 
INC 
L.DX 
INX 
INX 
STX 
STX 
LDA 
STA 
L.DA 
STA 
STA 
STA 
STA 
STA 
RTS 


JSR 
LDA 
LDY 
LDX 
JSR 
JSR 
JSR 
LDA 
TAY 
LDX 
JSR 
LDA 
LDY 
JSR 


#%DF 
RPLWD3 
TSTR, Y 
MASK 
MASK+1 
(TXT), Y 


BYPTR 
RPLWD1 


YTXT 


HOME 1 
SET&S 
SVFLG 
SPL 

#) FNAME 


#5P 
DCBEND, X 


SPL1 
START 
TXT 
TXEND+1 


UWSTART 
UWEND+1 


#14 


Page: 128 


($DF on Apple) 
(bra) 
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F4es 
2S: 
eFSis: 
2FSe2: 
eFSS: 
eFS7 s 
2FSA: 
2FSD: 
eCFSF : 
2F62: 
GFE4: 
2F67: 
2FG6A: 
2F6C: 
2FG6F : 
eF72: 
2F7S: 


2F78: 
2F7B: 
2F7Es: 
2Fais: 
2F83: 


FAG: 
<F87: 
2eF89: 
FSB: 
EFBE: 
2F91: 
eFO4s 
eFO7's 
ZF9A: 
2F9OC: 
2F9Es 
2FOF : 


RFA: 
FAS: 
EFAS: 
2FAB: 
FAB: 
ZFAE : 
eFBM: 
2FBes 
fCFB4: 
FBG: 
cCFB9: 
FBR: 
—SFBE: 
FC@: 
eFCe: 
GFC4s 
2FC7s 
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gil 
312 
S313 
3314 
9315 
3316 
9317 
wal8 
9319 
3324 
oe 1 
S322 
3323 
Se4 
325 
SSE6 
I327 
328 
5329 
ral 4 
5331 
9332 
9333 
D334 
9335 
S336 
DaS7 
3338 
9339 
3342 
5341 
oo4e 
3343 
S344 
5345 
346 
9347 
5348 
3349 
S352 
9351 
S352 
3353 
3354 
9355 
I356 
5357 
S358 
3359 
rel 1/4) 
S361 
3362 
S63 
5364 
3365 


SPS1 


* 
SPSUBS 


GWN1 
GWNE 


LDA 
ASL 
TAY 
JSR 
LDA 
JSR 
JSR 
BCS 
JSR 
BCS 
JSR 
JSR 
BCS 
JSR 
JSR 
JSR 
JMp 


JSR 
JSR 
JSR 
LDA 
JmMp 


SEC 
ROR 
L.DA 
JSR 
JSR 
JSR 
JSR 
JSR 
CMP 
BEG 
CLC 
RTS 


JSR 
LDA 
JSR 
JSR 
JSR 
BPL 
CMP 
BEG 
BCC 
JSR 
BCS 
JSR 
DEC 
BMI 
BNE 
JSR 
STY 


PRTDOC 
SETINV 
PRTDCT 
#15 
SETV 


EMODE 
#WSTR 
HLINE 
PTWD 
GETLN 
INTXT 
SKSP 
#CR 
DRTS6 


PTUWL 
#NWSTR 
HL.INE 
GETLN 
GETNUMA 
DRTSS1 
COUNT 
GWNE 
GWN= 
RGEE 
GWN@ 
PSKUP 
VAL 
DRTSS1 
GWN1 
SKPWRD 
LEN 


Page: 


for 


1a9 


len 
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C9: 18 5366 CLC 
cFCA: 6 3367 RTS 
2FCB: 3a 3368 DRTSS1 SEC 
eFCC: 62 3369 RTS 
o374 * 
S371 * 
ZFCD: 22 7F 20 S372 PRWRDS JSR PTUWL 
eFD@: AD wl o373 PRWS2 LDA #1 
eFDe: 8D 11 41 S374 STA TCNT 
2FDS: 22 DS 20 5375 JSR HOME 
2FD8: AD 11 i S376 PRWS1 LDA TCNT 
fSFDB: CS DB a Pe a CMP COUNT 
ZFDD: 92 W7 3378 BCC PRWSE 
eFDF:s Fa aS wor9 BEQ PRWSe 
eFE1: AD liza 5382 LDA #18 
SFES: 40 C8 iD S3eal JMP CLEOW 
2FEG: 22 45 21 S382 PRWSe JSR DECS 
2FES: 20 SC 21 38383 JSR BLANK 
@FEC: 22 Fil 2#F 3384 JSR PRWRD 
2£FEFs D@ E7 5385 BNE PRWS1 (bra) 
5386 * 
eFFis AM te 5387 PRWRD LDY #2 past soundex 
eFF3: Bi B@ 9388 PRW1 LDA (PTR),Y 
2FFS: 30 15 3389 BMI PRWS (bmi Atari) 
2FF7: 28 67 21 --539¢ JSR COUT 
“FFA: C8 ue91 INY 
_fFB: C@® 12 ber Fa eo CPY #12 
SFFD: 94 F4 a ape BE BCC PRWi1 
2FFF: Bi BO 3394 PRWe LDA (PTR),Y 
Saais C8 rai b= bo INY 
Sages AA 5396 ASL 
Saas; 92 FA bat Rs AF BCC PRWe (bee Atari) 
SQa5: 22 26 24 5398 JSR YPTR 
S@28: EE 11 @1 S399 INC TCNT 
Saab: 6 S422 RTS 
SaaC: 29 7F S421 PRWS AND #%7F (and #$7F Atari) 
GUMEs 22 67 21 S34a2 JSR COUT 
Sa@1ii: C8 S43 INY 
SQlz: 22 26 22 S344 JSR YPTR 
3@15: 84 FS S425 STY TEMP 
3217: AY 12 S426 LDA #12 
3219: 38 S427 SEC 
S@1iA: ES FS 5428 SBC TEMP 
S@1Cs FO 4 S429 BEG PRW4 
S2iE: AB S41 TAY 
SQIF: 22 92 2D S411 JSR YOUTS 
Sate: EE 11 21 S412 PRW4 INC TCNT 
SazS: 62 S413 RTS 
D414 #* 
Sa@a26: AI 12 S415 TBLNS LDA #18 
W268: 22 2D 3a S416 JSR PLNE 
I2Bs AD 16 3417 LDA #22 
* s@2D: AA aa 5418 PLNE LDY #2 Draw a line 
S@eF: 24 DE 2a 5419 JSR SETHYV 


S032: A4 SS 3424 LDY WW 
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3236: 4C 
S@39: 22 
S@3C: 22 
SQSF: AA 
2041: 4C 
3244: BE 
S246: 22 
3W49 5 A4 
S@4B: 62 
S@4C: Az 
SU4Es Ad 
3a5a: Ag 
3a52: Dw 
S054: Az 
3056: Ag 
3258: AQ 
Sa5A: 2 
S@5D: 22 
SQGMs 22 
S@G3: Aa 
3065: 2 

‘AEB: 40 
S@6B: AS 
SUED: A 
S@6Fs 2a 
3472: AS 
3274: 4A 
3275: 65 
3477: 85 
3079: AS 
SQ@7B: 38 
307C: ES 
SQ7E: 85 
328: AS 
3a82: EQ 
3284: 85 
S@863: 22 
3289: C8 
S28A: C4 
S@8C: 92 
SQ@8E: 22 
S491is 22 
3294: Aa 
3296: Fa 
3298: Bi 
329A: C8 

ASB: 2a 
SQ9E: Bi 
SaAZs 22 
S2AS: 92 
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3421 
s422 
S423 
S424 
S425 
S426 
5427 
W428 
5429 
D432 
S431 
D432 
5433 
5434 
9435 
5436 
D437 
5438 
2439 
442 
S441 
S442 
S443 
5444 
9445 
S446 
D447 
3448 
9449 
S452 
S451 
2452 
S453 
9454 
9455 
S456 
9457 
2458 
2459 
S464 
S461 
3462 
S463 
S464 
5465 
S466 
5467 
3468 
3469 
3472 
5471 
D472 
9473 
5474 
9475 


PRTDOC 


PRTDCT 


PRT1 


PRT XT 


PRTX1 


PRT Xe 


PRTX3 


LDA 
JMP 


JSR 
JSR 
LDY 
JMP 


STX 
JSR 
LDY 
RTS 


LDX 
LDY 
LDA 
BNE 
L.DX 
LDY 
LDA 
JSR 
JSR 
JSR 
L.DY 
JSR 
JMP 


LDA 
LDY 
JSR 
LDA 
LSR 
ADC 
STA 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 
JSR 
INY 
CPY 
BCC 
JSR 
JSR 
L.DY 
BEQ 
LDA 
INY 
JSR 
LDA 
JSR 
BCC 
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YOUTO 


PRWW2 
PUTLNM 
#WRDS 
PUTLNS 


YREG 
SETHV 
YREG 


#DOC 
#11 

#3 
PRT1 
#DICT 
#112) 
#12 
PRWW 
PUTLINNS 
BLANK 
#SM 
PUTLNS 
SETNORM 


ist position cursor 


WW jalways even 


Save starting position 
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— 


WAS: 
SAAB: 
SQA: 
SAD s 
SWB: 
S@B1: 
SMBS x 
SMBS s 
S287 : 


S2BB 
SQB9: 
SBA : 
SEC : 


SQEBF : 
SUaCi1: 
SACS: 
BacsS: 
SaC7 s 
3ac9: 
S@CB: 
Sacyd: 


SUD s 
“AD 1s 

ADS: 
SaDG6: 
SDB: 
SDB: 
SDE 
SDF : 
SWE s 
S@ES: 
SEB : 
S@E9: 
SEB: 
SQ@EE : 
SF is 
Sara: 


S2r6s 
Sars: 
S2FA: 
SAFE: 
S@FC: 
SFE : 
SidiZs 
3103: 
S1MG: 
3128: 

LA: 
wills: 
S1I@e: 
S1iils 


1D 


28 


tw fo 
Gj 
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DATE 
D477 
3478 
5479 
348 
S461 
9482 
3483 
5484 
D485 
5486 
3487 
3488 
5489 
34914 
5491 
8492 
D493 
D494 
3495 
2496 
9497 
D498 
3499 
SS) 
wad 
soe 
SoaS 
S54 
55a 
S526 
S547 
berber] AT =) 
solg 
ssi 
soll 
sule 
S513 
514 
so15 
S516 
wo17 
5518 
o519 
Jo24 
suel 
ogee 
s5e23 
due 
veiw Tike] 
pee [md = 
awe? 
soe8 


soe9 


ral bes 4 


PRTX4 


* 
INDICT 


NXTDSK 


SHNXT 


JSR 
JSR 
LDY 
JSR 
INY 
LDA 
CMP 
BNE 
RTS 


PLA 
PLA 
LDA 
JMP 


L.DA 
BMI 
CMP 
BEQ 
CMP 
BCS 
LDA 
JMP 


CLC 
LDA 
JSR 
LDA 
JSR 
STY 
INY 
STY 
JSR 
INC 
CLC 
LDA 
STA 
LDY 
JSR 
JMP 


LDX 
STX 
INX 
INX 
STX 
LDA 
JSR 
JMP 
LDX 
STX 
INC 
LDA 
JSR 
LDA 


YPTR 
SETNORM 


#> DHSPC 
TOBF 
#$82 
DVSET 
SECT+1 


SECT 
DCOMX 
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done? 


Atari only 
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waal 
suse 
533 
oo34 
Fei bos be 
bel ber 
9937 
Jaa8 
9539 
SO42 
S541 
042 
S543 
S544 
S545 
D546 
D047 
O48 
ww49 
S52 
sul 
bal kei besT 
S553 
S554 
9955 
sale ber] = 
9957 
ooo 
5559 
S562 
S561 
oo6e 
Fel bo] 
O64 
S565 
bei bor] = =] 
S567 
S568 
2569 
ww 7d 
3071 
vu/7e2 
9573 
so74 
9975 
3576 
ake Ad 
wu 78 
reba IF = 
SoG 
wu 1 
sues 
5583 
3584 
s985 


DDCHK 


DDCHKZ 


DDCHK1 


DBLKRD 


DBLKRD1 


JSR 


LDA 


JSR 


LDA 
CMP 


LDA 


BCS 


JSR 


BEQ 


JSR 


RTS 


LDA 


STY 


DDCHK1 
DSEQ 
SEQ 
SHNXT 


#NDMSG 
PRERR 
DDCHK 


DBLKRD 


NXTDSK 
SNDX1i+1 
SNDX1 
YBLK 
FSNDX 
FGSN2 
FGSN@Z 


BLOCK 
DBLKRD 


#2 
DCEND 
#> DSPC 
DCEND+1i1 
BLOCK 
DCEND+1i 
VPTR+1 


#¢B 
TOBB+1 
GPTR+1 
DCEND 
TOBE 
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Apple only 


read dict hdr 


see if proper one 
prempt if not right? 


always exit minus 


(bra) 


Set up default start 
Where to put chars 


Store chars here 
Turtle's head start 


Get packed byte here 
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184: 85 
3186: 69 
3188: 85 
318A: 92 
318C: E6 
SiSBE: #22 
3191: 22 
3194: Aa 
3196: Bi 
3198: 85 
319A: 85 
S19C: Az 
SI9E: 22 
SiAi:s Bl 
S1AS: AA 
S1iA4: 46 
31AG: 6A 
S1lA7: 46 
31A9: 6A 
S1iAA: BG 
S1iAC: 22 
SIAF: AGB 
SiBl:s 85 
SiBS: BA 

“™MB4: @6 
wiKG: 2A 
S1B7: m6 
SiB9: 2A 
SiBA: aA 
SIBB: @A 
31BC: 20 
SIBF: 2A 
S1Ca: A 
SiCils 20 
31iC4: 85 
SiC6é: 22 
t moves 
Sic9: 4C 
31CC: EG 
SiCE:s D@ 
31Da@: EG 
Side: AG 
31D4: 85 
S1D6: BA 
31iD7: 4A 
SiD8: 4A 
31D9: Fa 
-31iDB: a9 

1DD: 91 
3i1DF: C8 
S1iE@: BA 
S1IE1l:s 18 


ho 
a) 


31 
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DBLKS 


NX TUNP 


STA 
ADC 
STA 
BCC 
INC 
JSR 
JSR 


LDY 
LDA 
STA 
STA 
L.DX 
JSR 
LDA 
TAX 
LSR 
ROR 
LSR 
ROR 
STX 
JSR 
L.DX 
STA 
TXA 
ASL. 
ROL. 
ASL. 
ROL 
ASL. 
ASL 
JSR 
ASL 
ASL 
JSR 
STA 
JSR 


JMP 


INC 
BNE 
INC 
LDX 
STA 
TXA 
LSR 
LSR 
BEG 
ORA 
STA 
INY 
TXA 
BPL. 


GPTR 
#2 
VPTR 
DBLKS 
VPTR+1 
SETBLK 
RBLK 


#2 
(GPTR),Y 
CHAR 
BYTE 
#GPTR 
INCR 
(GPTR),Y 


BYTE 
BYTE 
BYTE 
SUB 
BYTE 
BYTE 
BYTE 


BYTE 


SUB1 


SUB 
BYTE 
SUB 


NXTUNP 


GPTR 
SUB1 
GPTR+1 
CHAR 
CHAR 


UPRTSC 
#$62 
(VPTR),Y 


UPSS 
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Move past srndx space 
Point to word for SOUNDX 


Read in black 


Set len= 
Get ist 
Preload 
Save it 
Mave to 


(and index) 
char 

next/last char 
for btm & bits 
next packed byte 


Get 2nd byte 
Preatect it 

Mave btm 2 bits 
;inta A 


out 


end byte 

This is @nd of 4 
Get #2 byte 

Put #3 byte 


Need top @ bits this time 


;Moave hibit to bit 7 


Dar’? t change pointer 
Still #3 byte 
;Move hibit up 
Send #4, Get #4 
Save it 
ist byte of 3 only needs 


De another loop 


mave to next byte 


Get last char 
Save this one 


Move bits down 


Tap 2@ bits on 

Stuff it 

Length 

End of ward? 

Ne, get next packed byte 


(ist of cycle of 3) 
= righ 
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LES: AS 6A S642 LDA CHAR Next ane plus, alsa? 
31E5: 10 18 5641 BPL. CONT Ne 
SLE7: 29 ‘7 5642 AND #%7C Kill lower = bits (already time 
s 4) 
SSIES: AA S643 TAX Index into suffixes 
SLEA: CA S644 DEX 
SIEB: 88 S645 DEY Back up 
oLtEC: C8 S646 SUFLP INY because last one goes in CHAR 
SiED: E& 5647 SUFLP1 INX 
SiEE: BD C9 33 S648 LDA SUFFIX-4, X Get suffix 
SiFis Fil FA 3649 BEG SUFLPI Net 4 char sub, move up 
S1F3: 91 BC S652 STA (VPTR),Y into dict 
2i1FS¢ 10 FS D651 BPL SUFLP Until plus 
S1F7: A wesc ASL. sAdjust bits for *bit—-twiddling 
q 
S1FS8: aA S653 ASL. 
S1IF9: 29 8 9654 ORA ##82 Make plus (it’ll get turned bac 
Kk or) 
S1IFB: 85 6A S655 STA CHAR Make it next one 
S1IFD: 3@ 1D S656 BMI UPSS Get another one (bra) 
wOS7 * 
SiFF: 84 DC 9658 CONT STY LEN Length 
SEM@1: 22 90 2B S659 JSR SOUNDEX Get & add sndx (up len by 2) 
SE4: AM wi S662 LDY #1 »«Make it = bytes 
Se46G;: BS FE 25 S661 UPSi LDA SNDX,Y Mave snmdx 
“229: 91 98 S662 STA (DCEND), Y to dict 
SMB: BS S663 DEY 
S2aC: 124 FB 5664 BPL UPS1 
SeaeE: A& DC S665 LDY LEN 
S212: AZ BC 5666 LDX #VPTR 
Sf1le2: 22 2B ea S667 JSR YUP Mave to next word 
S@15: Ae 98 5668 LDX #DCEND 
Seil7: 22 2B 24 S669 JSR YUP Move toa next sndx 
Se1As Aw m2 96712 LDY #12 Reset length 
SeiCs Az wa S671 UPSS LDX #2 
SE1E: Al 9A S672 LDA (GPTR, X) Get next packed byte 
Sted: 62 5673 RTS 
9674 * 
Seei:s 68 9675 UPRTSC PLA Kill RTS 
S222: 68 5676 PLA 
See3: 18 3677 DRTSC CLC 
S224: 6 5678 RTS 
5679 * 
S225: 22 67 20 S682 FSNDX2 JSR TSX1i 
See28: 24 BD SS S56el JSR YBLK 
322k: 85 AS 5682 FSNDX STA SNDX1i+1 
Se2D: B86 A4S S683 STX SNDX1 
Seer: 18 5684 FSNDX2 CLE 
SeG4: BO 22 35 S685 LDA DHSPC, Y 
S233: 3a 18 S686 BMI FSNDX4 
S235: CS A4 S687 CMP SNDX1 
237: D@ a7 5688 BNE FSNDX3 
etS9: BO S@ 35 5689 LDA DHSPC+8A, Y 
BS2e3C: CS AS S691 CMP SNDX1+1 


SESE: FM ZF T6911 REG DRTS7 
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Baa: 
S242: 
S243: 
3246s 
Se48: 
S24kh: 
SE4Ds 
Se4Es 
SE4F s 


3250: 
3252: 
S254: 
Fe ma bo 
3257 
3209: 
SeSA: 
Sends 
SeoF s 
S264: 
sc6l1: 
3263: 
S264: 
3265: 
_Se67: 

268: 
wZOBs 
3Se6E: 
s27135 
seler 
S275: 
3276: 
3278: 
S27A: 


327Cs 
327D: 
oeres 
oe7Fé 
3281: 
3283: 
32835: 
32606: 
32895 
s28Cs 
3e26E: 


35 


LETTER PERFECT Atari V6.4 


692 
S693 
694 
9695 
5696 
9697 
3698 
W699 
a7 
3721 
S702 
I743 
S74 
S745 
S726 
77 
378 
729 
3712 
3711 
S712 
9713 
o714 
os715 
3716 
9717 
3718 
9719 
3724 
9721 
a72e2 
9723 
a724 
9725 
7G 
5727 
u728 
S729 
73 
S731 
3732 
5733 
734 
9735 
5736 
3737 
J738 
3739 
5742 
S741 
J742 
743 
744 
S745 
3746 


FSNDX3 


FSNDX4 


DRTS7 
% 


SETBLK 
SETB 


SETB1 


SETBE 


SETBS 
SETBS 


SETB4 


RWe 


RWS 
RW4 


BCS 


DEY 


RTS 


LDY 
LDA 


BNE 


CLC 
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DRTS7 


MXE 
FSNDX2 
DSEG+1 
DRTSC 


BLOCK 
#12 


#2 
SETB4 


SPNE 
SETR2 


SETB1I 


SETES 


SPNE 
SECT 
SECT+1 


SPNE 


#3 
#4 


SETES (bra) 


$B 


DCNT+1 
DCNT 
DCNT+1 


DCOM 
SECT 
RWe 
SECT+1 
BPS 
RWS 
TOBE 
TORE 
RW4 
IOBR+i 
DCNT 
RW1 
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3747 
3748 
9749 
S751 
wfol 
sve 
9753 
3754 
37595 
S756 
3757 
9758 
3799 
27612 
3761 
762 
S763 
5764 
9765 
S766 
3767 
3768 
2/769 
77 
S771 
a772 
9773 
3774 
w77S 
5776 
wl? 
3778 
3779 
5784 
3781 
3782 
5783 
3784 
2778S 
786 
3787 
3788 
3789 
3794 
o791 
ba d= 
9793 
3794 
o795 
S796 
3797 
3798 
3739 
rei 74 74 
SBA1 


NB 


% 
* 
DCMATCH 


DCMi 
DCMe 


NDCM 


DCMS 


DCM4 
DCMS 


DCMG 


DCM7 


DCM& 


LDY 
INY 
CPY 
LDA 
BCC 
LDA 
RTS 


L.DX 
DEX 
BEG 
LDA 
STA 
JSR 
L.DX 
LDA 
LDY 
JSR 
BCC 
LDA 
JSR 
JSR 
SEC 
RTS 
JSR 
BEG 
JSR 
LDA 
CMP 
LDA 
SBC 
BCS 
JSR 
BNE 
JSR 
LDA 
STA 
INC 
JSR 
JSR 
BCS 
JSR 
BEG 
JSR 
JmMp 
JSR 
JSR 
BCS 
LDA 
JSR 
JSR 
BCS 
JSR 


BLOCK 


MXE 
DHSPC, Y 
DRTS7 
DSEQ+1 


NDCM 


Page: 


(bra) 
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) 


&S 


Wh WO Gb Gi GI 
WwW GW GW bo GI & uw 
WW fo fo fo fo fo fo fo fo mo 


rs 


17 
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82 
s8as 
B04 
28a5 
WAZe 
S827 
3828 
o89 
7812 
S8ii 
3812 
S813 
S814 
9815 
S816 
5817 
2818 
9819 
S822 
S821 
Jere 
S823 
w8e4 
S825 
u826 
827 
B28 
3829 
83S 
S831 
S832 
S833 
834 
W835 
836 
S837 
3838 
5839 
S842 
S841 
3842 
5843 
5844 
5845 
S846 
5847 
5848 
3849 
85a 
S851 
T85e2 
2853 
w854 
S855 
5856 


DCMS 


SHDCM 


SHDM1 


SHDMe 


SHDMS 


BNE 


STA 
LDA 


JSR 
JMP 


LDX 
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PTR 
UWEND+1 


PTR+1 
CNT1 
CNT1i+1 
CNTi+1 
#32+1 
DFLAG 
SHDMe2 


#1 select 


DRTS8& quit 


SHDM1i (bra) 


PTR+1 
GPTR+1 


UWEND+1 
PTR+1 
PTR 

#2 
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2B 
2C 


22 


64 


65 


EC 


65 
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D857 
3858 
3859 
5862 
J86 1 
862 
S863 
3864 
9865 
S866 
3867 
3868 
3869 
3872 
W871 
87 
3873 
3874 
3875 
9876 
3877 
3878 
3879 
3882 
3881 
5862 
3883 
9884 
5885 
5886 
3887 
3888 
3889 
9894 
S891 
989e 
B93 
9894 
2895 
3896 
5897 
9898 
5899 
392 
3921 
I9e= 
I9aS3 
5924 


9945 
SIZE 
9927 
3928 
3929 
s912 


CSNDT 


DRTS8& 
PSX1 


SUFFIX 


TED 


STA 
LDA 
ADC 
STA 
JMP 
JSR 
CPX 
BNE 
CMP 
RTS 
LDY 
LDA 
TAX 
INY 
LDA 
CMP 
BNE 
CPX 
RTS 


LDY 
L.DA 
INY 
ASL 
BCC 
JMP 


LDY 
BPL 
LDY 
RTS 


LDA 
STA 
L-DY 
STY 
RTS 


DFE 
DCI 
DFB 
DCI 
DFR 
DCI 
DFE 
DCI 
DFB 
DCI 


DCI 
DFB 
DCI 
DFE 
DCI 
DFB 


VPTR 
UWEND+1 


SNDX1+1 


#2 
(PTR),Y 


(PTR),Y 
SNDX1+1 
DRTSS 
SNDX1 


#4 
(TXT), Y 


SKPT1 
YTXT 
BLOCK 


DRTS9 
#12 


#> DSPC 
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Special case 


Num & 
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SEE: 
ooris 
SSF4s 
SSFS: 
oSFGs 
33F9: 
aor: 
33FD: 
SSPFEs 
34121 s 
S43 & 
S45 
B47 : 
S409 : 
S4AC : 
S4iaD : 
S421F : 
S411: 
S412: 
3415: 
34163 
3419: 
341A: 
341D: 
S41F 5 
GB Ls 
wt Y 
3425: 
S426: 
3429: 
S420: 
242D: 
S42F s 
S431: 
3432: 
3435: 
34363: 
3439: 
S43EB: 
343D: 
S43F : 
S441: 
3443: 
3445: 
S446: 


EF 


73 


74 


793 
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s911 DCI "ate" 
a3912 DCI "tive" 
S913 DFB @ 
5914 DCI "ize" 
ois DCI "ting" 
5916 DFB a 
3917 DCI "ing" 
5918 DFB a, 
5919 DCI "al" 
5922 DFB 4, 
5921 DET. *on" 
vJ92e DCI “tion Num #16 
u923 DFB @,@ 
S924 DCI "er" 
W929 DFB 4a 
S926 DCI "ter" 
5927 DFB 
5928 DCI "tor" 
5929 DFB a 
5934 DCI “ies" 
J9S1 DFB 4,4 
2932 DCI "“es" 
3933 DCI "ions" 
5934 DFB @ 
5935 DCI "ars" 
5936 DFR 4a 
wa37 DCI "ess" Num 24 
5938 DFB &@,@ 
5939 DEI “tes" 
59424 DFB a 

3941 DCI "ous" 
5942 DFB a 
5943 DCI "ent" 
5944 DFB 4, 
5945 DCI "st" 
5946 DFR 2,4 
5947 DCI "“ly" 
5948 DFB a, 
5949 DCI “Fry" 
59524 DFB a 

S951 DEL  "“athy" 


9952 * 


~ mid 
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E4 


D4 


Da 
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5 * 


PAGE 


KEKE KHRHKKEREE 


* BITS VIDEO 


* 


KEKKKKKEKEKERKEREE 


* 


* 
* 
* 


ee Nov 83 


RES 


$FFA—* 


* ATARI 824 COLUMN +* 


* Video for 


REG 
DREG 
CTRLR 
WRAM 
BITS 
BITSDK 


* 
RDKEY_B 


% 
VCOL.D_B 


VWARM_B 


% 
BELL_B 


RING_B 
RING_Bi 


EGU 
EQu 
EGU 
EQu 


EQuU 
ORG 


JSR 
JSR 
JSR 
JSR 
JMP 


LP 


% 
$D58a 
$D581 
$DS28 
$DS85 


BITS-GENESIS+255/128 Genesis is sector 1 
$722 


VSAVE 
DOCUR_B 
CGKEY 
OFCUR_B 
VREST 


VSET_B 
DWW 

#SP 
START 
SDLIST+1 


HIM 
STWW_B 
WW 


WDOK 
HOME 1 
NOKEY 
OSTREAM 
EMODE 
INVFLG 


#) MYVB_B 
#MYVB_B 
SYSVE 


#$D 
NMIEN 
#$7F 
$DA1F 


7 Feb-1984 


ZA 


64 
CF 


64 


D4 


D4 


me 
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69 
6212 
6211 
6a12 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6222 
621 
Atze 
G23 
G24 
6025 
G226 
6027 
228 
G29 
6232 
6131 
6432 
G233 
6234 
6235 
GSE 
62437 
638 
6239 
61042 
6141 
6142 
643 
6044 
6245 
6046 
6147 
6248 
6249 
G52 
GIS 1 
6052 
6253 
6254 
6255 
6256 
6257 
6258 
6S9 
6262 
BMG 1 
6262 
6263 


* 
VIDEO_B 


STOADV_B 


ADV_B 


VTAB_B 
MYBC_B 
BASCALC_B 


BASC1_B 


VRTS1_B 
* 
* 


CRET_B 


LF_B 


STX 
DEX 
BPL 
DEY 
BNE 
LDA 
STA 
RTS 


CMP 
BEG 
ORA 
JSR 
INC 
LDA 
LDY 
BNE 
LDA 
CMP 
BCC 
RTS 


DEC 
BPL. 
LDA 
STA 
LDA 
BEQ 
DEC 
LDA 


STA 
ASL. 
ASL 
ADC 
ADC 
PHA 
ASL 
ASL 
ASL 
ASL 
STA 
PLA 
LSR 
LSR 
LSR 
LSR 
STA 
RTS 


LDA 
STA 
INC 
LDA 


WSYNC 
RING_B1 
RING_Bi 


#$C2 
NMIEN 


#CR 
CRET_B 
INVFLG 
SWRITE_Bia 


BASE 


BASE+1 
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2 


DS 


DS 


fo 
Ss 


28 


As 


LETTER PERFECT Atari V6.4 


6264 
6265 
6266 
6267 
6268 
6269 
672 
627 1 
6272 
6273 
6127 4 
6275 
6276 
61277 
6278 
6279 
6282 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6292 
6291 
6292 
6293 
6294 
695 
6296 
6297 
6298 
6299 
612 
6121 
6102 
6123 
6124 
61a5 
6126 
6127 
6128 
6129 
6112 
6111 


6112 
6113 


6114 
6115 


cmp 
BCC 
DEC 
LDA 
ADC 
AND 
STA 
JSR 
JSR 
JSR 
JMP 
* 
ACALC_Ba 
ACALC_B 


LDY 
LDA 
STA 
TYA 
CLC 
ADC 
STA 
STA 
LDA 
STA 
LDA 
ADC 
STA 
STA 
LDA 
STA 
LDA 
BPL 
RTS 


ACALC_B1 


ACALC_Be 


* 

* 

SCLTOP_B_B JSR 
CLTOP_B LDA 

TAY 

SETIT_B JSR 
* 
CLRLN_B  LDY 
DFB 
LDY 
LDA 
JSR 
INY 
CPY 
BCC 
RTS 


CLEOL_B 
CLEOL_B1 


* 
CRIBL_B  DFB 


DFB 


es) 
eS) 


Page: 1 


#24 
BASCALC_B 


PUTTOP_B 
CLRLN_B 
VTAB_B 
CLRLN_B 


COL 
#613 
REG 


BASE 


ABASE+1 
DREG 
#$1F 

REG 

REG 
ACALC_Bz2 


HVSAVE_E 
#2 


SETHV 


SWRITE_B 


#82 
CLEOL_B1 


$70, $50, $5B, $39, $19, 4 


$18, $18, $78, 9, $22, 9 
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Wid: 
ABZ : 
Q@B22: 
ABZ s 
WAGE s 
“BED: 
A@GBLC s 
WBZE : 
ABSA: 
B33: 
MOSS s 
BBS7: 
‘939: 
wB3E : 
@BS3Ds 
WASF : 
ABS: 
WB4i2 5 
BO44 s 
WB4G s 
WB48s 
ZB4As 
@B4AB: 
WB4D s 
MA4e s 
WBAF s 
WEBS: 
QB54s 
@G5e: 
W858: 
ABSA: 


ABSD : 
BSF s 
MBE": 
ABE1: 
A1BGZ s 

S655 
W866: 
ABE9 s 
ZBaG6A: 


64 


De 
BZ 
De 


E8 


E4 


a7 


DS 


a7 


e: 124 


ai 
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6116 DECI_B DFR 4@,4,>1@2%,>12 

6117 DECZ_B DFR 18, 124, $£8, $14 
6118 * 

6119 INSMC_B LDA INSM 

6124 EQOR #82 

Siet STA INSM 

6122 RTS 

61235 * 

ELE4 HHH KH EKER EKER EEX 


6125 
6126 
6127 
6128 
Gle9 
6134 
6131 
6132 
6133 
6134 
G135 
6136 
6137 
6138 
6139 
142 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6152 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6162 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 


* LJK VBLANK * 
KEKKKHKEKEKKEKEKEKRKHE 
MYVB_B 
MYVB_B1  LDY KEYREG 
CPY #$Ca 
BCS XITV_B 
LDA #%$FF 
STA KEYREG 
LDA KTBL,Y 
CMP #$FF 
BNE KEY_Bi 
JSR NOKEY 
BEQ XITV_B 
KEY_B1 CMP ##Da 
BCC KEY_B2 
AND #%22 
STA CAPS 
BPL XITV_B 
KEY_B2 TAY 
AND #$DF 
CMP #"A 
BCC KEY_BS 
CMP #"Z+1 
BCS KEY_BS 
TYA 
EOR CAPS 
TAY 
KEY_B3 TYA 
LDY KIN 
STA KBUFF,Y 
INC KIN 
EPL XITV_B 
ASL KIN 
XITV_B JMP XITVB 
* 
HHH HEHEHE KEKE KEKHEHHRHREE 
SWRITE_B@ LDY COL 
SWRITE_B PHP 
PHA 
SEI 
JSR ACALC_E 
PLA 
STA WRAM 
PLP 
IMP ACALC_Be 


Atari key 
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DS 


DS 


iD 


a7 
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6172 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 
6182 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6192 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 
6199 
6202 
G21 
62a 
6223 
Balas 
B25 
B22 
G227 
6228 
6249 
6214 
6211 
6212 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6224 
6221 
Gece 
B223 
6224 


* 
DOCUR_B 


OFCUR_B 
HCUR_B 


* 


VSET_B 


VSET_B1 


STWW_B 


* 
PUTTOP_B 


JSR 
LDY 
STY 
LDA 
STA 
DEY 
STY 
LDA 
STA 
LDA 
BIT 
BPL 
LDA 
DFB 
LDA 
LDY 
STY 
STA 
RTS 


LDX 
STX 
L.DX 
STX 
LDA 
STA 
DEX 
BPL. 
INX 
STX 
STX 
STX 
TXA 
JSR 
LDA 
RTS 


LDA 
STA 
JSR 
JSR 
LDX 
RTS 


JSR 
AND 
BEG 
LDY 
STY 
LDA 
JSR 
STA 
INY 
STY 


ACALC_Ba 
#$F 

REG 
ABASE 
DREG 


REG 
ABASE+1 
DREG 


VSET_B1 


TOS 
INSM 
CAPS 


CLS1 
#82 


#$18 
CTRLR 
PUTTOP_E 
OFCUR_B 
#82 


ACALC_Bz 
#$20 
PUTTOP_B 
#$C 

REG 

TOS 
BASC1_B 
DREG 


REG 
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it) 


DS 


DS 
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6225 LDA BASE 
6226 STA DREG 
6227 RTS 

6ec28 * 

6229 VOFF_B INX 

23a STX CTRLR 
6231 RTS 

6232 MWW_B DFB 8&&@ 

ESS KERR H EH EEH HK EEE ERK EERE EE 
6234 * 

6235 HVSAVE_B LDA CV 

6236 STA TCV 

6237 HSAVE_B LDA COL 

6238 STA TCOL 
6239 RTS 

6242 * 

6241 GLCTL_B DFB CR,EOT, 1, 1A, $1E, $1F, SAB, $AD, SAE, SAF, $B, SBE 
6242 % 

62435 * 

6245 * FILE VID. AF 

6246 * 

BEAT KHER EKER E KEE HE HE 
6248 * A..F. 82 COLUMN * 
6249 * Video for LP * 
EZ) HI HE EE EE EE EE EE 
6251 * 

6252 ORG #72 
6253 * 

6254 AUSTINF EQU BITS+$2aa 
6255 AUSTINFDK EQU AUSTINF-GENESIS+255/18a 
6256 CTRLR_A EQU #D5SF6é 
6257 VRAM_A EQU #DE6lmz 
6258 * 

6259 RDKEY_A JSR VSAVE 
6262 JSR DOCUR_A 
6261 JSR CGKEY 
6c62 JSR OFCUR_A 
6263 JMP VREST 
6264 * 

6265 VCOLD_A JSR VSET_A 
6266 STA DWW 
6267 LDA #SP 
6268 STA START 
6269 LDX SDLIST+1 
6272 DEX 

6271 STX HIM 
6272 VWARM_A JSR STWW_A 
6273 STX WW 

6274 DEX 

6275 STX WDOK 


7 Feb-1984 


64 
CF 


iF 
1E 


a3 
ea 
2a 


E4 


D4 


Da 
D4 


D4 


Vite) 
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276 
6277 
6278 
6279 
6262 
6281 
6282 
6283 
G284 
6285 
6286 
6287 
6288 
6289 
6292 
6291 
6292 
6293 

294 
6295 
6296 
6297 
G298 
6299 
322 
6301 
6342 
6343 
6324 
6325 
6326 
6.3217 
6328 
639 
6314 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6324 
6321 
6322 
6323 
6324 
6325 
B326 
6327 
6328 
6329 
6332 


* 
BELL_A 


RING_A 
RING1_A 


* 
VIDEO_A 


STOADYV_A 


ADV_A 


VTAB_A 

* 

MYBC_A 
BASCALC_A 


JSR 
JSR 
STX 
STX 
STX 
DEX 
STX 
JSR 
JSR 
LDA 
LDX 
LDY 
JMP 


LDY 
STY 
L.DX 
STX 
STX 
DEX 
BPL. 
DEY 
BNE 
LDA 
STA 
RTS 


CMP 
BEQ 
ORA 
JSR 
INC 
LDA 
LDY 
BNE 
LDA 
CMP 
BCC 
RTS 


DEC 
BPL. 
L.DA 
STA 
LDA 
BEQ 
DEC 
LDA 


STA 
ASL 
ASL 
ADC 
ADC 


HOME 1 
NOKEY 
OSTREAM 
EMODE 
INVFLG 


$372 
HVSAVE_A 
DREST 

#7 

#) MYVB_A 
#MYVB_A 
SYSVB 


#$D 
NMIEN 
#$7F 
$DA1F 
WSYNC 


RING1_A 


RING1_A 
#$C0 
NMIEN 


#CR 
CRET_A 
INVFLG 
SWRITE2_A 


BASE 
TOS 
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64 


6S 


a7 


a7 


ae 


a7 


DS 


ar) 
me 
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6331 BASCi_A 
6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6342 

6341 

6342 

6343 VRTS1_A 
B344 % 

6345 * 

6346 CRET_A 

6347 
6348 
6349 
6352 
6351 
6352 
6353 
6354 


6355 


6356 
6357 
6358 
6359 
636% 
6361 
6362 * 
6363 ACALC_A 
6364 
6365 
6366 
6367 
6368 
6369 
6372 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 * 
£380 * 
6381 STWW_A 
6382 
6383 
6384 
63835 * 


LF_A 


PHA 
ASL 
ASL. 
ASL 
ASL 
STA 
PLA 
LSR 
LSR 
LSR 
LSR 
STA 
RTS 


LDA 
STA 
INC 
JSR 
LDA 
CMP 
BCC 
JSR 
DEC 
LDA 
ADC 
AND 
STA 
JSR 
JSR 
JMP 


TYA 
CLC 
ADC 
STA 
L.DA 
ADC 
ASL 
ROL. 
AND 
STA 
LSR 
STX 
LDX 
ORA 
STA 
RTS 


JSR 
JSR 
LDX 
RTS 


Page: 128 


BASE 


BASE+1 


PUTTOP_A 
CLRLN_A 
VTAB_A 


#$F 
ABASE+1 
ABASE 
CHAR 
ABASE 
#$EQ 
CTRLR_A 


PUTTOP_A 
OFCUR_A 
#80 


7 Feb-1984 


WBiDs: 
A@Ged s 
2B2e2: 
ALBZS s 
WB26: 
@GBi9 s 
QWB2C s 
MGZe s 
AAgsia: 


BSS: 


“BSS: 
W837: 
WB39: 


Zi 


64 


De 


8a 
De 


it) 


E8 
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6386 ;RES 3 

6387 * 

6388 * 

6389 SCLTOP_A JSR HVSAVE_A 
639% CLTOP_A LDA #2 

6391 TAY 

6392 SETIT_A JSR SETHV 
6393 * 

6394 CLRLN_A LDY #2 

6395 DFB #2£C 

6396 CLEOL_A LDY COL 

6397 CLEOL1_A LDA #SP 

6398 JSR SWRITE_A 
6399 INY 

64244 CPY #82 

64121 BCC CLEOL1_A 
6442 RTS 

64243 * 

6424 SETA A INX 

645 STX INSM 
6426 STX CAPS 
64127 STX TOS 

6428 LDA #82 

6429 RTS 

6412 * 

6411 RES 2 

6412 * 

6413 * 

6414 DEC1_A DFB @,@,>1@22, > Lag 
6415 DECZ_A DFR 14, 1282, $£8, $12 
6416 * 

6417 INSMC_A LDA INSM 
6418 EO0R #82 
6419 STA INSM 
6422 RTS 

6421 * 

EZ HEHEHE HEHEHE HEE EE 
6423 * LIK VBLANK * 
E42 HEE EH HEE 
6425 MYVB_A 

6426 MYVBi_A LDY KEYREG 
6427 CPY ##CZ 
6428 BCS xXITV_A 
6429 LDA ##FF 
6432 STA KEYREG 
6431 LDA KTBL,Y 
6432 CMP #$FF Atari key 
6433 BNE KEYi_A 
6434 JSR NOKEY 
6435 BEQ xXITV_A 
6436 KEY1_A CMP ##€D2 
6437 BCC KEY2_A 
6438 AND #%22 
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34 


E4 


a7 


DE 


DE 


DS 


DE 


DS 


Zs 
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6439 
6442 
6441 
6442 
6443 
6444 
6445 
6446 
6447 
6448 
6449 
6452 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
64612 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6472 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6478 
6479 
6484 
6481 
6462 
6483 
6484 
6485 
6486 
6487 
6488 
6489 
6492 
6491 
6492 
6493 


STA 
BPL 
TAY 
AND 
CMP 
BCC 
CMP 
BCS 
TYA 
EOR 
TAY 
TYA 
LDY 
STA 
INC 
BPL 
ASL 
JMP 


KEY2_A 


KEY3_A 


XITV_A 
* 


Page: 


CAPS 
XITV_A 


#$DF 
#"A 
KEY3_A 
#"Z4+1 
KEY3_A 


CAPS 


KIN 
KBUFF, Y 
KIN 
XITV_A 
KIN 
XITVB 


KEELER EEKHEE EKER 


SWRITE@_A LDY 
SWRITE_A PHA 
SEI 
JSR 
PLA 
ASL 
PHP 
LSR 
STA 
LDA 
ORA 
STA 
PLP 
LDA 
ROL 
STA 
LDX 
CLI 
RTS 
* 
OFCUR_A LDY 
DFE 
LDY 
LDA 
STA 
LDA 
STY 
STA 
RTS 


DOCUR_A 


* 
* 
VSET_A LDA 
STA 
LDX 


VSET1_A LDA 


COL 


ACALC_A 


VRAM_A, X 
#$D2 
ABASE+1 
CTRLR_A 


#$58 


VRAM_A, X 
CHAR 


VRAM_A+$18 
VRAM_A+$19 


#$B 
CTRLR_A 
#$1A 
CRTBL_A, X 
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FG 


DE 


DG 


DS 
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6494 CPX #%16 

6495 BEQ VSET2_A 

6496 STA VRAM_A, X 

6497 VSET2_A DEX 

6498 BPL VSET1_A 

6499 JSR CLSi 

652 JMP SET@_A 

65a1 * 

6502 CRTBL_A DFB $70, $4F, $17, 7, 3, $16, $82, $17, $29, $10, 2, 1 


6543 
6524 
65245 
6526 
6527 
6548 
6549 
6514 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6522 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
653 
6531 
6532 


6533 


6534 


DFB 
RES 

* 

* 

PUTTOP_A LDA 
JSR 
LDA 
STA 

PUT1_A LDA 
LSR 
BCC 
LDA 
STA 
LDA 
STA 
RTS 

* 

*% 

VOFF_A INX 
STX 
RTS 

MWW_A DFB 


2,2,4,2,$¢FF,2,2,2,2, FF, 2,2, FF, 2,2 
4 


TOS 
BASC1_A 
#$B0 
CTRLR_A 
VRAM_A+$3A 


PUT1_A 
BASE 
VRAM_A+$C 
BASE+1 
VRAM_A+$D 


CTRLR_A 


8a 


HHKHKEEHE KEKE KEE KEE EKREREEEREEER 


* 

HVSAVE_A LDA 
STA 

HSAVE_A LDA 
STA 
RTS 


GLCTL_A DFE 


* 


CV 
TCV 
COL 
TCOL 


CR, EOT, 1, $1A, $1E, $1F, $AB, $AD, $AE, $AF, $B2, $BE 
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SOQ: 
S92 s 
3904s 
SIG s 
S929 s 
390C : 
SIME s 
SOF s 
S911: 
e913: 
39153 
3918: 
S91Bs 
_S91D: 

‘WIFs 
922: 
3925: 
3928: 
SIZB: 
392D: 
S92E: 
S9S1% 
39338 
393358 
3938: 


SOISB: 
393D: 
SOGF s 
3941: 
S9435 


3946: 
3949: 


S394C: 
SO4E: 
3952: 


429353: 
955s 
3957: 
3958: 
S9OB: 


E4 


aS 


ic 


39 
1B 


1B 


a7 
2) 


iB 


& 
ro 
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6536 
6537 
6538 
6539 
6542 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6552 
655 1 
6552 
6553 
6554 


6555 


6556 
6557 
6558 
6559 
6562 
6561 
6562 
6563 
6564 
6565 
6566 
6567 
6568 
6569 
6574 
6571 
6572 
6573 
6574 
6575 
6576 
6577 
6578 
6579 
6582 
6561 
6582 
6583 
6584 
6585 
6586 
6587 
6588 
6589 
6592 


PAGE 


* FILE CONFIG 


* 


KEKRKEKKEHKKRKEHKHEREEKEHEKREEREEEEE 


* CONFIGURE FOR ATARI LP 


* 


KREREEKE KKK KEKE HE EEK EERE EEREEER 


% 


% 13 Dec 8&3 


* 


ISBOOT 


VID4a 


MYSET 


* 
MYINIT 


* 


SETPTRS 


% 
GDBOOT 


ORG 


LDA 
LDY 
LDX 
JSR 
LDA 
BEG 
ASL. 
ADC 
LDY 
L.DX 
JSR 
JSR 
LDA 
STA 
JSR 
JSR 
JSR 
LDA 
EOR 


BITS+#422 


#7 
#XITVE 
#) XITVB 
SYSVB 
VTYP 
VID44 


#> BITS-S204 


#>) VIDEO 


#MAIN 
SETPTRS 
MAIN 


#MY INIT 
DOSINI 

#>MYINIT 
DOSINI+1 
DOSYEBRK 


VCOLD 
(BRKYV) 


DOSINI+1 
DOSINI 
DOSYBRK 


#$FF 
WARMST 


COLDST 


Bit3=1, 
5; Two pa 


Put it h 
Two page 


A.F.=2 
ges each 


ere 
S 


Clr boost flgs/ doa vid cold 


Set defa 
7F=Singl 


Set ders 
Set vect 


Reset ba 


Warm goo 


Cold com 


ult drives 
e, FF=Double 


mrs 


ck 


d 


plete 
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4,ENZIZ) 


a7 


E4 


E4 


39 
aS 


aS 


39 


oi 


a 
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6593 * 
6594 * 
6595 KGETCH 


6621 * 
6622 LOADEND 


STX 
JMP 


LDA 
PHA 
L.DA 
PHA 
RTS 
RES 


EQU 


BOOT 
VCOLD 


$E425 


$E424 


$FFAZ—* 


* 


EES KEKE HEHEHE EEE EE 


6624 * CONFIGURE START * 
EEA KHER EHR KKERHKEE 


6626 * 


6629 CONFIG 


6612 * Following local usage 


6611 MYPTR 
6612 BUFX 
6613 ANSNUM 
6614 HEXMODE 
6615 MYREG 
6616 EDIT 
6617 INDEX 
6618 MYFLAG 
6619 COLM 
6622 BELC 
6621 %* 


6627 INIT 


6633 * 


ORG START 
DFR SP 
EQU F4 
EQU $F6 
EQU %F7 
EQU F8 
EQU FC 
EQU $F9 
EGU FA 
EQU FE 
EGU 16 
EGU 87 
JSR GDBOOT 
LDX MXSPC 
BEQ INIT 
DEC MXSPC 
LDA #$2 
STA CAPS 
LDA #) INIT 
LDY #INIT 
JSR MYSET 


6634 * Get video type 


6635 * 
6636 DOVID 


LDA 
STA 
LDA 
STA 
LDA 
LDY 
L.DX 
JSR 
INX 


#MYEXIT 
MODIFY+1 
#2 

HE XMODE 
#> VIDCTRL 
#VIDCTRL 
#3 

EMENU 


Boot true 


Address for sector load count 


(use tabmap area) 


2 Bytes 

Inbuff X—-Pointer 

Item number selected 
edit hex/dec made FF=hex 


Flag for pre-char editing 
Index inte CTBL 


Print file htab 
Cir beet flgs 
Get max dot+i spacing 


Not defined! 
Adjust it (will unadgust on exi 


set uppercase 


Set for prm exit 
inable dec mode 
Max 


Print and get 
Bump it up 1 (44 calm=) 
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332A: BE 
4B2D: 12 
4BeF:; 22 
4B32: 4C 
4B35: AQ 
4B37: 8D 
4E3A: 46 
4B3C: AQ 
4BSE: Al 
4B4i: Az 
4B42: 22 
a 
4h45: 86 
4B47: Al 
4H49: 84 
4846: BD 
4H4E: EW 
4B5a: Da 
4ES2s 18 
4B53: 24 
AHS4: 38 

355: 22 
4B58: 22 
4E5B: AG 
4B5D: E& 
4E5E: EQ 
4B64: 92 
4H62: 22 
4B65: Bd 
4867: 40 
4BEA: Fa 
4B6C: A 
4H6Es 22 
4B71: AG 
48732 BD 
4B76: EQ 
4B78: Da 
4B7A: 18 
4B7B: 24 
4B7C: 38 
4B7D: 22 
4SBBa: 12 
4B82: 9D 
4B85: 32 
4B87: A 
4BA9: AB 


4B 
AF 


bea 4 


a2 


Vike 


4F 


aS 


oa 


aS 
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6645 STX VTYP Save answer 

6646 BPL GETK if $ff leave unconfig 
6647 JSR WRT 

6648 JMP EXIT So exit 

6649 GETK 

66512 LDA #BACKUP 

6651 STA MODIFY+1 Set option ta backup 
6652 %* 

6653 # Get disk defaults 

6654 * 

6655 DKDEF LSR HEXMODE Kill hex in case he backed up 
6656 LDA #)DKDFLTS 

6657 LDY #DKDFLTS 

6658 LDX #4 Max of 3 items 

6659 JSR TOPMENU Prints top/apticns/sets VTAB/X= 
66624 DKDEF 1 STX INDEX 

6661 LDY #COLM+6 

6662 STY. GOL 

66603 LDA DFU, xX Get value 

6664 CPX #2 Need yes/no? 

6665 BNE DKDEF11 

6666 CLC Set for sub test 
6667 DFR $24 

6668 DKDEFI1 ~ SEC 

6669 JSR HEXYNOUT 

66724 3;JSR HEXOUT Out with it 

6671 JSR SCRDO Goto next line 

6672 LDX INDEX Next 

6673 INX 

6674 CPX #3 Done? 

6675 BCC DKDEF1 Nes 

6676 JSR MENUANS Prt/put ans in ansrnurm 
6677 BCS DKDEFe Carry from A=1 

6678 JMP DOVID Back to video 

6679 DKDEF2 BEQ PLOADI Accept and move oan 
6682 LDY #COLM+6 Set calm 

6681 JSR SETUP Set scern/buffer 

6682 LDX ANSNUM Reload selection number 
6683 LDA DFU, X 

6684 CPX #2 

6685 BNE DKDEFEZ1 

6686 CLC 

6687 DFR #24 

6688 DKDEFZ1 SEC 

6689 JSR PRTGETYN 

6692 ;JSR PRIGET Prt/Get/Test A=input; X=menu item 
6691 BPL DKDEF Neat a number 

6692 STA DFU, X PRTGET sets A and X 
6693 BMI DKDEF always 

6694 * 

6695 * printer load routine - - - - 

6696 * 

6697 PLOADI LDA #> PLOADE 

£698 LDY #PLOADe 
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39 


26 
4E 
26 
a4 
a5 
as 
4B 


Ze 


4F 


4E 


rai 74 


4B 


4F 
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6699 


6722 
6721 
6722 
6723 
6724 
6725 
6726 
6717 
6728 
6729 
671 
6711 


6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6724 
67el 
&7zz 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
6732 
6731 
6732 
6733 
6734 


6735 
6736 
6737 
6738 
6739 
6742 
6741 
6742 
6743 
6744 
6745 
6746 
&747 
6748 
6749 
67524 


PLOAD 


* ASK 
* 


ASKED 


GDEF 


GDEF 1 


GDEFe2 


JSR 


LDA 
STA 
LDA 
STA 
LDY 
JSR 
JSR 
JSR 
JSR 
L.DX 
BEQ 
DEC 


JMP 


= LDA 
CMP 
BNE 


if edit 


2 LDA 
JSR 
CMP 
BEG 
CMP 
BNE 
JIMP 


MYSET 


#PBUFF 
TXT 

#>) PBUFF 
TXT+1 
#PSTR 
GNAMER 
PSTUFF 
FNDNAME 
LOADE 
MXSPC 
ASKEDIT 
MXSPC 


ASKEDIT 
IN 


#CR 
PLOAD1 


values 


#EDITO 
QUESTION 
#"Y 

GDEF 

#°N 
ASKEDIT 
FINISH 
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If error or CR, vector 


Get max dot+i spacing 
net defined! 

Adjust it (will 
Get a good one 
ar CR? 


Was it an error 


Disk error 


Single pager 
See if want to edit 


Yes 


Bad answer 
Der? t edit any 


- - - change default format values 


LGR 
LDA 
L.DY 
DX 
JSR 


STX 
LDY 
STY 
L.DA 
JSR 
JSR 
L.DX 
INX 
CPX 
BCC 
JSR 
BCS 
JMP 
BEG 
L.DY 
JSR 


HE XMODE 
#> DFLTS 
#DFLTS 
#14 

TOPMENU 


INDEX 
#COLM+6 
COL 
NORM, xX 
HEXOUT 
SCRDO 
INDEX 


#13 
GDEF i 
MENUANS 
GDEFe 
DKDEF 
ASKHE X 
#COLM+E 
SETUP 


back ta 


unadjust on @xi 


Kill hex in case he backed up 


Max of 14 items 


Prints top/aptions/sets VTARB/X= 


Get value 

Out with it 
Geto next line 
Next 


Done? 

Nis 

Prt/put ans in ansnum 
Carry from A=1 

Back to Disk defaults 
Accept and move on 
Set calm 

Set sern/buffer 
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aS 


a 


aS 


4F 


4F 
21 
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6751 
6752 
6753 


6754 
6755 
6756 
6757 
6758 
8759 
&764 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6774 
&771 
6772 
6773 
6774 
6775 
6776 
&777 


6778 
6779 
6782 
6781 
6782 
6783 
6784 
6785 
6786 
&787 
6788 
6789 
6794 
6791 
6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6622 
G82 1 
6822 
6823 


LDX ANSNUM 
LDA NORM, X 
JSR PRTGET 
BPL GDEF 
STA NORM, X 
BMI GDEF 

% 

* Ask if edit hex/dec 

¥ 

ASKHE X LDA #EDHEX 
JSR QUESTION 
LDY #$FF 
CMP #"H 
BEQ SETEDIT 
LDY #122 
CMP #"D 
BNE ASKHEX 

SETEDIT STY HEXMODE 

* 

% ---~- vertical spe/ fonts 

¥ 

GFNTS LDA #) PBUFF 
STA DADR+1 
LDA #>FNTS 
LDY #FNTS 
LDX #7 
JSR TOPMENU 

GFNTS1 STX ANSNUM 
LDY #COLM-2 
STY COL 
JSR PRINTG 
JSR SCRDO 
LDX ANSNUM 
INX 
CPX #6 
BCC GFNTS1 
JSR MENUANS 
BCS GFNTS& 
JMP GDEF 

GFNTS& BEQ GCTRLS 
LDY #COLM-2 
JSR SETUP 
JSR PRINTG 
JSR INPUTDEF 
JSR GETE 
JMP GFNTS 

% 

* —---- printer 

GCTRLS LDA #) PRBUFF 
STA DADR+1 
LDA #>PCTRLS 
LDY #PCTRLS 
LDX #7 


Page: 


special ceontrl chars 


136 


Reload selection number 
Prt/Get/Test A=input; X=mernuw it 
Not a number 


PRTIGET sets A and X 
always 


To set flag 


Clear 


point to printer buffer 


Max of 7 items 
Print menu, setup for defaults/ 
need room for S answers 


print 5 items 
reset line 


Next default 


For 7 items 

repeat 

Prt/put ans in ansrura 
A=1? 

Backup to defaults 
Accept it 

For CH 


print and stuff 


always 


point ta printer buffer 


Max of 7 items 
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‘Ysp: 224 4D Sa 684 JSR TOPMENU 
4C6M: 86 F7 6845 GCTRL1I STX ANSNUM Use ANSNUM as index, PRINT_4 us 
es it 
4CG2: AZM 16 6826 LDY #COLM 
4C64: 84 35 68127 STY COL 
4C66: £24 79 4F 6628 JSR PRINT_4 print 4 items 
4C69: £2 DD #1 6829 JSR SCRDO skip a line 
4C6C: AG F7 6812 LDX ANSNUM 
4C6E: ES 6811 TNX Next default 
4C6F: E@ 2G 6812 CPX #6 for 7 items 
4071: 92 ED 6813 BCC GCTRL1 repeat 
4073: 22 36 3S@ 6814 JSR MENUANS Prt/put ans in ansrnum 
4076: Ba 3 6815 BCS GCTRLe A=1? 
4078: 40 18 4C 6816 JMP GFNTS Backup to Fonts info 
4C7Bs Fa ii 6817 GCTRLE BEQ GPMISC Accept it 
4C7D:i AM 16 6818 LDY #COLM 
4C7F: 22 EA 4F 6819 JSR SETUP 
40682: 22 79 4F 66822 JSR PRINT_4 print and stuff 
4085: 224 45 Sa E6621 JSR INPUTDEF 
4088: 22 BD 4F 68&2 JSR GET4 
4C8B: 40 53 40 6823 JMP GCTRLS always 
6824 * 
6G8eLa § --— printer misc info -—--- 
6826 * 
ACBE: AD SS 6827 GPMISC LDA #>PMISC Printer misc info 
| 9%: AM 1E 6828 LDY #PMISC 
‘C92: AZ AS 6829 LDX #3 Max of 3 items 
4094: 22 @D Sa 683% JSR TOPMENU Menu & setup for defaults 
4097: 86 FA 6831 GPMISCi STX INDEX 
4099s Al 1E 6832 LDY #COLM+8 
4C9B: 84 SS 6833 STY COL 
409D: BD @5 a5 6834 LDA BDW, X Get it 
4CAM: EW wt 6835 CPX #1 Y/N test (X=4,1,2) 
4CA2: #2 DD S@ 6836 GPM1 JSR HEXYNOUT Print it 
4CAS: 22 DD £1 6837 JSR SCRDO Next line 
4CAB: AG FA 6838 LDX INDEX 
4CAA: EB 6839 INX 
4CAB: EW ae 6842 CPX #2 for 2 items 
4CAD: 92 ES 6841 BCC GPMISC1 
4CAF: #2 36 5a 6842 GPMISCX JSR MENUANS Prt/put ans in ansnum 
4CBE: BA wa 6843 BCS GPMISCe Fran A=1 
4CB4: 40 53 40 6844 JMP GCTRLS Entered zera! 
4CR7: Fa 17 6845 GPMISCe BEG CHKP1 Accept and move on 
4CB9; Al 1E 6846 LDY #COLM+8 Set calm 
4CBB: 22 EA 4F 6847 JSR SETUP Set sern/buffer 
4CBE: AG F7 6848 LDX  ANSNUM Reload selection number 
4CC@: BD aS 25 6849 LDA BDW, X 
4CCS3: EW a1 6852 CPX #1 for y/n ans (X=, 1,2) 
4CC5: 24 AL S@ 6851 GPMe JSR PRTGETYN prt default/get input/test for 
number 
-4CC8: 18 ES 6852 BPL. GPMISCX Net a number! 
‘ 2CA: 9D @5 25 6853 STA BDW, X X is loaded from subr 
4CCD: 40 BE 40 6854 JMP GPMISC always 
6855 * 


6856 * - —- —- Check printer type - - - 
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—_ 


[DMs AD 4 
4CD3: Da as 
4CDS: 4C 31 
40D8: AQ SS 
ctrl prefix 
4CDA: AZ BC 
4CDC: Az aS 
4CDE: 224 wD 
4CE1: 86 FA 
4CES: 22 BE 
4CE6: BY SE 
4CE9: AZ 22 
4CEB: 84 SS 
4CED: 224 E9 
4CFZs £24 DD 
4CF3: 22 DD 
4CFG: AG FA 
4CF8: ESB 
4CF9: EQ w4 
4CFB: 92 E4 
4CFD: 22 36 
4024: Ba ws 
Adee: 4C BE 

VOSS: FO 1F 

°‘DA7s AD ZA 
4049: 65 F7 
4D4B: £24 EA 
4DZE: AGB F7 
4D1i@: 224 BE 
4D1i3: BY SE 
4D16: 22 CF 
=Nernu itern 
4D1i9: 18 Ee 
4D1B: 48 
4D1C: 22 BE 
4D1F: 68 
4De4: 99 SE 
4D23: 40 D&B 
4D26: AD M4 
4D2Z9: 34 23 
4D2B: 4C 31 
4DeE: AD S56 
4D34; AW AD 
4032: Ae WS 
_A#DS4: 24 33 

237: Ba was 
4D39: 40 DS 
4D3C: Da@ as 
4D3E: 40 31 


4E 


ea 


oa 


4C 


4E 
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6857 
6858 
6859 
S862 
6861 
6862 


6863 
6864 
6865 
6866 
6867 
6868 
6869 
6872 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6882 
6881 
6882 
6883 
6884 
6885 
6886 
£887 
6888 


6889 
6892 
6891 
6892 
6893 
6894 
£895 
6896 
6897 
6898 
6899 
& 922 
6921 
6922 
6923 
6924 
695 
6926 
6927 
6928 
6929 
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Not 
Skip it 


Zere dot char/ max dots/ bold/ 


Tather? 


Max of S items 


Test/adjust index 
(adjusted index) 


Skip a line 


for 


4 items 


Prt/put ans in ansriun 


A=1? 


Entered zera! 


Accept and mave an 


Set calm 


Every-other line 
Set sern/buffer 
Reload selection number 
Adjust if needed 


Prt default/get/test A=input; 


Bad numb 
Save inp 
Adjust 


always 


er 
ut 


Proportional only 


Skip it 


Edit all/same? 


Max 


Entire meri 


Net zero 
Back it 
Net one 


CHKP1 LDA PTYPE 
BNE DSPACE 
JMP FINISH 

* 

* --- printer hmi/det infa ---- 

DSPACE LDA #) ZSPMSG 
LDY #ZSPMSG 
LDX #5 
JSR TOPMENU 

DSPACE1 STX INDEX 
JSR ZINDEX 
LDA ZSP,Y 
LDY #COLM+ia 
STY COL 
JSR HEXOUT 
JSR SCRDO 
JSR SCRDO 
LDX INDEX 
INX 
CPX #4 
BCC DSPACE1 

DSPACEX JSR MENUANS 
BCS DSPACEZ 
JMP GPMISC 

DSPACE BEQ CHKPe 
LDY #COLM+1@ 
ADC ANSNUM 
JSR SETUP 
LDX ANSNUM 
JSR ZINDEX 
LDA ZSP,Y 
JSR PRTGET 
BPL DSPACEX 
PHA 
JSR ZINDEX 
PLA 
STA ZSP,Y 
JMP DSPACE 

x% 

* - - ~ Check printer type 

CHKP2 LDA PTYPE 
BMI ASKCHAR 
JMP FINISH 

¥ 

* Routine to edit Char 

ASKCHAR LDA #)EDITCHAR 
L.DY #EDITCHAR 
LDX #3 
JSR EMENU 
BCS ASKCHX 
JMP DSPACE 

ASKCHX BNE ASKCHA 
JmMP FINISH 


Move or! 


up! 


X=aris 5 


CC=0; EQ=1 


x 
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iD 
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a7 


4E 
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6912 
6911 
6912 
6913 
6914 
6915 
6916 
6917 
6918 
6919 
694 
6921 
6922 
6923 
6924 
6925 
6926 
6927 
6926 
6929 
6934 
6931 
6932 
6933 
6934 
6935 
69.36 
6937 
6938 
6939 
6942 
6941 
6942 
6943 
6944 
6945 
6946 
6947 
6948 
6949 
695 
6951 
6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
6962 
6961 
6962 
6963 
6964 
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Want toa freeze top two lines 
For edit flag 


Do all! 


Tell him what 


Hold a bit 


of Edit Char leop - - - 
Offset to char 


Line num 1-95 


to ASCII 


Save 


It’s a space 


Accent mark 


Not alpha 


Not a special 


ASKCHA JSR CLS 
LDA #)>) TITLE 
LDY #TITLE 
JSR PUTMENU 
LDA #2 
STA LF+til 
LDY ##FF 
LDA ANSNUM 
BEG ASKCHI1 
LDA #>)EINST 
LDY #EINST 
JSR PUTMENU 
LDX #%FF 
JSR MYWAITI 
LDY #2 

ASKCH1 STY EDIT 

% 

*#=~- =- =~ Start 
LDA #2 
STA INDEX 
CLC 

CHARL.P ADC #1 
LDY #2 
STY COL 
JSR PRDIG 

* - - ~ Get prefix string - - - 
LDY #SPACE 
LDA INDEX 
CLC 
ADC #" Convert 
TAX 
CMP #" 
BEG SENDIT 
LDY #ACCENT 
CMP #"* 
BEG SENDIT 
LDY #BLNK 
CMP #"A 
BCC SENDIT 
CMP #"z+1 
BCC SENDi 

;LDA #" Far specials 
LDY #CURL 
CPX #"% 
BEQ SENDIT 
LDY #VERT 
CPX #"| 
BEG SENDIT 
LDY #LBRAC 
CPX #"< 
BEG SENDIT 
LDY #RBRAC 
BNE SENDIT 


SEND1 


ta 


Only thing left 


do 
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JAG: C9 
~DAGB: 9 
4DAA: C9 
4DAC: 9 
4DAE: A 
4DB@: 2C 
4DBi: Al 
4DEB3: 48 
4DB4: A9 
4DBG: EG 
4DB8: EG 
4DBA: 2 
4DBD: EG 
4DBF:s EG 
4DCi: 68 
4D0CE: A 
4DC4: C4 
4DCG: 9 
4DC8: 84 
4DCA: 22 
4DCD: AM 
4DCF: 84 
4DD1i:s 2 
4DD4: AG 

“ODE: BD 

OD9: 22 
4DDC: 24 
4DDE: 7 
4DE@: 124 
4DEZ: AS 
4DE4: 85 
4DEG3 AS 
4DE8: 85 
4DEAs ei 
4SDED: 22 
yeot rin 
4DF@: 112 
4DFe2: AG 
4DF4: 9D 
4DF7: AS 
4DF9: 29 
4DFB: 85 
4DFD: EG 
4DFF: 22 
SEs ci 
4E@S: 22 
4E@8: AS 
4E@A: C9 
4E@C:s Fil 

-AEME: 2 

Eli: FO 
4E13: 22 
4E16: C9 
4E18: Fa 


iD 
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6965 
6966 
6967 
6968 
6969 
6972 
6971 
6972 
6973 
6974 
6975 
6976 
6977 
6978 
6979 
6982 
6981 
6982 
6983 
6984 
6985 
6986 
6987 
6988 
989 
6992 
6991 
6992 
6993 
6994 
6995 
6996 
6997 
6998 
6999 
7aae 


7A 1 
7a 
7AAS 
7A4 
7aaS 
7aAE 
7aa7 
728 
7aayg 
7aia 
7@1li 
7a1e 
7@1S 
7a14 
7ais 
7a16 
717 
7018 


SENDUP 
SENDIT 


SEND2 


EDITALL 


NOEDIT 


CMP 
BCC 
CMP 
BCC 
LDY 
DFB 
LDY 
PHA 
LDA 
INC 
INC 
JSR 
INC 
INC 
PLA 
LDY 
CPY 
BCC 
STY 


JSR 
LDY 
STY 
JSR 
L.DX 
L.DA 
JSR 
BIT 
BYVS 
BPL 
LDA 
STA 
LDA 
STA 
JSR 
JSR 


BPL. 
L.DX 
STA 
LDA 
AND 
STA 
INC 
JSR 
JSR 
JSR 
LDA 
rip 
BEG 
JSR 
BEQ 
JSR 
CMP 
BEG 


#"Z+1 
SENDUP 
#"a 
SENDIT 
#LOWER 
$2C 
#UPPER 


#) PREFIX 
COL. 
COL 
PUTMENU 
COL 
COL 


#12 
COL. 
SENDE 
COL. 


COUT 
#COLM 
COL 
SETUP1 
INDEX 
CTBL, X 
HEXOUT 
EDIT 
EDITALL 
NOEDIT 


TCV 
INPUTDEF 
GETNUMZ 


EDITALL 
INDEX 
CTBL, xX 
EDIT 
#97F 
EDIT 
INDEX 
SCRDO 
SCRDO 
MYWALT 
INDEX 
#95 
EDITONE 
CKEY 
NOTCR 
RDKEY 
#CR 
EDITONE 
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make it upper 
Not alpha 
mask next 
Save char 

Hi byte 

Skip 2 


Print prefix 
Skip 2 


Char 
Colm 12 unless 


We printed a prefix 
Passed it 


Print the char 


Set/elr buffer 
Present value 


Sheuld we edit it 
Getiln chgs CH/CV 
Returns with num in A, 
Bad number 

Update data 


Now clr one-edit 


Next one 
Every other line 
Slow down seroll 


Last 
Yes, 


one? 
force question 


na key hit 
Get key and clr reg 


Wants to edit one 


plus if 
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22 


FG 


1D 


4E 


4D 


a7 


a 


39 


26 
4E 
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7419 HOLD JSR CGKEY 

7a24 ;CMP #$C2 

7@2i ;BCS HOLD Wait a while 

7aze ;JSR RDKEY 

7a23 CMP #CR 

7AZ4 BNE NOTCR 

7a25 EDITONE BIT EDIT 

7az6 BVS NOTCR Deing all anyway 
7a27 JSR WHICH Get line num to edit 
7428 NOTCR LDA INDEX 

729 CMP #95 

7asA BCS FINISH Dene 

7aZs1 JMP CHARLP Do all 

7aSz * 

7a@SS *% --- Finished ---- 

7FAS4 * 

7435 FINISH LDA #1 

7ASE STA LF+il Fix seroll back 
7AS7 LDY #EXITM 

7US8 LDA #)EXITM 

7439 LDX #4 four items 

74a JSR EMENU Print/get (answer is in X decim 
7a41 BCS FIN@ 

742 BIT PTYPE 

7A43 BMI FINBKE 

7A44 BYVS FINBK1 

7a45 JMP GPMISC 

7446 FINBK1 JMP DSPACE 

7247 FINBKE JMP ASKCHAR 

7A48 5 

7249 FINA ADC #1 make it 1 ta 4 
7aSA CMP #3 

7asi BNE FINi 

7as2 JMP DOVID 

7253 FINI BCC FINe 

7254 JMP EXIT Doar’? t update 
7@SS FING LDX MXSPC 

7aS6 BEQ FINS Not defined 
7aS7 INC MXSPC Adjust back te ?@+1? 
7@S58 FINS CMP #é2 Add to catalog? 
7aS9 BNE UPDATE Ne 

7@E24 PSAVE LDA #) PSAVES 

7ME1 LDY #PSAVE2 

7262 JSR MYSET Vector back to us 
7aE3 LDA #)>PBUFF 

7AG4 LDY #PBUFF 

765 STA TXT+1 Save page #2522 
72E6 STY TXT 

7267 LDY ##Da@ 

7aE8 STY TXEND Save $DZ bytes 
7269 STA TXEND+1 

7a7A LDY #SNAME 

7a71 JSR GNAMEZ 

7a7e2 JSR PSTUFF 
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“288: 
7E GB: 
4EBE: 
4E91s 
4E94: 
4E96: 


4E98 
4E9B: 
4E9E: 
SEA s 
4EAS s 
4EAG: 
4EAT7 s 
4EA9: 
4EAR: 


4EAC: 
4EAE : 
4EB1: 
4EB4: 


ae 


ctor number 
““EBG: BE ZA 


Bos 
4EBB: 


4EBE s 
4EBF s 
4EC1: 
4ECS: 
4EC4: 
SECG : 
ed 

SECT: 


4EC8: 
4ECA: 
4ECCs 
4ECF : 
4EDA: 
4ED2: 
4EDS: 
4ED5: 


=D6: 
+ED9s 
4EDB: 
4EDDs 


AQ 
4C 


8A 
C9 
14) 
18 
69 
AB 


62) 


Ae 
Ag 
2 
88 
Da 
CA 
Da 
62 


Fe) 
AD 
85 
85 


iz 
4-3 


2E 


39 


il 


4F 


4F 
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Go do it 
Good jab 
Disk err CR? 


or 


Try again 


Write configure sectors 
Do rest of bat 


here aor jump back tea it 


END OF PGM 


Address 
Rts Y= 
;PBUFF-GENESIS+255/128 Which se 


Sector count 
Update boot sectors 


index for DSPACE - - - 


Index to A 
Adjust? 
No 


Adjust it 


Adjusted value in Y3 X unadjgust 


JSR FNDNAME 
JSR FSAVER 
JMP UPDATE 
PSAVE LDA IN 
CMP #CR 
BNE PSAVE 
% 
* Now save boot sector & print file 
UPDATE JSR WRT 
JMP ISRBOOT 
PSTUFF LDY #8 
SELD1 LDA PFID-8, Y 
STA NAME, Y 
INY 
CPY #11 
BCC SELD1 
RTS 
* 
* Put is-boct 
* 
WRT LDA #) $52 
JSR TOBF 
STY SECT+1 
LDX #2 
STX SECT 
LDA #2 
JMP WRBLK 
% 
ye ee ee ee ee ee 
% 
* - — compute 
ZINDEX TXA 
CMP #& 
BCC ZDEX1i 
CLC 
ADC #BOLDC-ZSP- 
ZDEX1 TAY 
RTS 
% 
MYWAIT LDX #14 
LDY #12 
MYWAIT4I JSR WRTS 
DEY 
BNE MYWAITI 
DEX 
BNE MYWAIT1 
RTS 
* 
* Routine toa get char toa edit * 
WHICH JSR SETUPI 
LDA #2 
STA COL 
STA TCOL 


set temp location 
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FB 
7B 


rel) 
2a 
2) 
a7 
Ze; 


4D 


on] 


1D 


1D 
4F 


bor 
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7126 
TtLe7 


71268 
7129 
7132 
7131 
7ide 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7142 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
715% 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
71624 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7172 
7171 
fice 
7173 
7174 
7175 
7176 
7177 
7178 
7ivzg 


WHICH1 


* Compute serm location * 
CV-2-(index-answer) #2 


* Lacs 


ONSCRN 


WRTS 
% 
% 


QUESTION 


LDA 
STA 


L.DA 
LDY 
JSR 
JSR 
JSR 
JSR 
LDA 
CMP 
BEG 
BIT 
BPL. 
LDY 
BNE 
PLA 
PLA 
JMP 
DEY 
CPY 
BCS 


LDA 
ASL. 
CLC 
ADC 
SBC 
CLC 
SBC 
BPL. 
LDA 
LDY 
JSR 
JSR 
LDX 
DEX 
STX 
LDA 
ORA 
STA 
RTS 


PHA 
JSR 
JSR 
PLA 
TAY 
LDA 
JSR 
SEC 
ROR 
JSR 


CV 
TCV 


#) GEDIT 
#QGEDIT 


WHICH1 


ASKCHAR 


INDEX 
WHICH 


VAL 


CV 
INDEX 


INDEX 
ONSCRN 
#3 

#2 
SETHYV 
CLEOP 
VAL 


INDEX 
EDIT 
#$82 
EDIT 


CLS 
PUT2A 


#>EDITG 


PUTMENU 


MYFLAG 
PPUT 
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so GETLN will restore same 


Ask which one? 


Clear line, CH set to @ 
Null answer? 

Yes, exit 

Number? 

Ne, try again 

get answer 


Back up 

For carry test 
Reached it yet? 
Nea 


Answer 
;limes & 
Screen loc 

Take another extra 
Do it twice 

Still on sern 
print from line 3 


(A is 
Erase 


leaded with CY) 
question, etc 


Back it off one 
Change it 


Set edit flag 
Do it next pass 


Save low index 
Set line #4 
Hex or dec? 


Stuff the buffer tan 
Print the default 


plac 
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Lt 


oo 


ol 
Ze, 


4F 


wi 
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7182 
7181 
7182 
7183 
7184 
7185 


7186 
7187 
7188 
7189 
7192 
719i 
7192 
7193 
7194 
7195 
7196 
7197 
7198 
7199 
7za2 
721 
7eae 
72a3 
72a4 
7245 
7206 
7207 
7228 
72a9 
721a 
welt 
fele 

213 
7214 
7e1s 
7216 
7217 
7218 
7219 
7eea 
feed 
7eee 
7223 
7224 
7225 
72e6 
7227 

228 
7229 
7234 
7231 
7232 
7233 


AFETCH 


% 
NFETCH 


* 
PRINTG 


PRTGA 


PRTGE 


* 
PRINT_4 


PRTN 


PRS 


PRS1i 


JSR 
LDA 
AND 
RTS 


JSR 


JSR 
LDA 
BIT 
RTS 


JSR 
CPY 
BEG 
L.DA 
SBC 
STA 
LDA 
REG 
ASL 
ASL 
ASL. 
SEC 
SBC 
CLC 
ADC 
CMP 
BCC 
SBC 
BNE 


L.DY 
LDA 
ASL. 
ASL 
CLC 
ADC 
STA 
STY 
LDY 
STY 
LDA 
CMP 
BEQ 
CPY 
BEG 
LDA 
JSR 
LDY 
LDA 
JSR 
INC 
LDY 
CPY 


INPUTDEF 


GLEGN 


GETLNi 
VAL 
NFLAG 


CKE8 
#6-1 
PRTGA 
COL. 

#8 

COL. 
ANSNUM 
PRTG@E 


#2 


#VSP 
#FONT@+2 
PRTN 

#E 

PRTN 


#4—-1 
ANSNUM 
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Back cursor up, 
Get ist char 
Kill lower case 


Put curser over default 


Load the value 
Number input? 
Mirus if good number 


Which? 

Six? 

Yes 

Allaw 8-1 

Seo back up cursor (CS) 
Which item 

Dern’? t adjust @ 


;Times 8 per item 


lst gap is 6 


Set index 

end gap is six 
dar’ t adjust 
back off 2 
Always 


Get item number 
;limes 4 per item 
Adjust 


adr low 
loop counter 


index 


is this needed? 


2? 


get input 
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a5 


4F 


Le: 


iF 


a 


Fe 
a7 


ac 
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BCC PRS 

P4RTS RTS 

* 

CK68 LDY #6-1 
LDA PTYPE 
BNE CKRTS 
LDA ANSNUM 
CMP #& 
BCC CKRTS 
LDY #8-1 

CKRTS RTS 

x 

GETE JSR CK6E8& 
DFB $2C 

GET4 LDY #4-1 
STY COUNT 
JSR  INTXT 
LDY #2 

GETN@ STY YREG 
BEG GETNN 

GETN JSR FETCH 
CMP #SP 
BEG GETN 
CMP #", u 
BNE GETEND 

GETNN JSR GETNUM 
LDY YREG 
BIT NFLAG 
BPL GETEND 

5LDA VAL get number 
STA (DADR),Y 
INY 
CPY COUNT 
BCC GETN@ 

GETEND LDA #%FF 
STA (DADR),Y 
RTS 

* 

SETUP ADC #5 

SETUP JSR SETHV 
JSR CLEOL 

SETUP1L SEC 
ROR MYFLAG 
JSR CLEAR 
STX BUFX 
RTS 

Ss 

* 

PUTZ LDA #2 
LDY #2 
JSR SETIT 
JMP CLEAR 

a 

INPUTDEF LDX BUFX 
JSR GLBGN 
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Need 8-1? 
Neo 
On fonts? 


Ne 


Which count? 


set TXT toa INBUF 


check for comma 


skip it 


index 


into print info buffer 


end marker 


Compute VTAB (CS) 


Out with the old 


Stuff in buffer 
Clear buffer 
Zero index (X=) 


Index in buffer 
Backup curser 


7 Feb-1984 LETTER PERFECT Atari V6é.@ Page: 146 


yor: 4C BS 24 7289 JMP GETLNI Get input 
729m * 
Sazd: 86 BB 72391 TOPMENU STX MAX max selection 
S@aF: 84 F4 72392 STY MYPTR 
SMii:s B85 FS 7293 STA MYPTR+1 
SQ@i3: 22 BE ib 7294 JSR CLS 
5aié: #24 75 Sa 7295 JSR PUTMENUA with address stuff 
S@1i9: Ae F4 7296 LDX #MYPTR 
SZ1B:s 22 2B 2a 7297 JSR YUP Move PTR up, zero Y 
S@1E: Aaa S59 7298 MODIFY LDY #MYEXIT Will modify for exit/backup 
Sea: 22 2A Si 7299 JSR MYPUTLINM Common itern 
BQ@zS: 22 77 S2@ 73aa JSR PMENU1 Cont print memu items 
Swaee: AS F4 7301 LDX #MYPTR 
Sac: 22 2B 2a 732 JSR YUP Add Y ta PTR 
SazB: AD WG 7343 LDA #6 What line to start defaults 
7344 3;STA CV 
SQ2D: 22 D4 224 735 JSR SETV 
SaSa: Ac we 7346 LDX #2 Zero index 
SAZS2: 62 7307 RTS 
73aa * 
5033: £2 2D 5a 7349 EMENU JSR TOPMENU 
SAaSE: AD wa 731% MENUANS LDA #2 
5038: 85 SS 7Sil STA COL Reset cursor in case of bad ans 
wer 
J5@3A: 22 FR 4F 7312 JSR PUTeA 
43D: AW BS 7313 LDY #SELECT Common item 
waSF: 22 @A Sl 7314 JSR MYPUTLNM 
5742: AG BB 7315 LDX MAX Max choices 
S244: AD wid 7316 LDA #24 
5246: 84 FC Vole STY MYREG 
S@48: 22 F9 24 73518 JSR PRDNF Print it out 
S24B:s A& FC 7319 LDY MYREG 
5@4D: 22 12 Sil 73ea JSR MYPUTLNi Finish select 
Ssusa; 38 7321 SEC 
S@S51: 66 FE 7see ROR MYFLAG Stuff buffer 
S253: 24 77 Sa 7325 JSR PMENUI 
SAa56: 2225 Sa 7324 JSR INPUTDEF 
5259: 22 32D 2a 7325 JSR GETNUMA 
7326 3;BIT NFLAG Good? 
SaS5C: 124 Da 7327 BPL MENUANS nat a number 
S@SE:s AA 7328 tax ;LDX VAL Get answer 
SaSF: Fla a6 7329 BEQ MENUAL Dear? t decrement 
S@6i: CA 7334 DEX For carry test 
S@62: E4 BS 7331 CPX MAX In limits? 
5264: Ba Da 7332 BCS MENUANS 
S66: EB 7333 INX Fix back 
S@67: EM wi 7334 MENUAL CPX #1 For backup/accept test 
S269: 28 7335 PHP Save it 
S@6A: CA 7336 DEX Correct for menu 2= item @ 
SZ6B: CA 7337 DEX 
S260: 86 F7 7338 STX ANSNUM Save it for indexes 
JEE: BA 7339 TXA Put in A for V-line 
S@6F; 28 7344 PLP 
S270: GZ 7341 RTS 
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N71: 685 FS 7343 PUTMENU STA MYPTR+1 Print menu items 
Sw73: 84 F4 7344 STY MYPTR 
Sa7S: 46 FB 7345 PUTMENUZ LSR MYFLAG do it here! 
S477; A wz 7346 PMENUIL LDY #2 Index 
S@79: 84 Fé 7347 STY BUFX Also buffer 
S”A7B:; Bil F4 7348 PPUT LDA (MYPTR),Y Menu items 
Sa@7D: Fa aA 73493 BEG PPUTI End of it all 
Sa47F: 22 8B Sa 7354 JSR KGCOUT Send it out 
sase2: C8 taal INY 
5283: Da Fé 7352 BNE PPUT Always 
SaaS: EG FS 7353 INC MYPTR+1 
587: Dd@ Fe 7354 BNE PPUT (bra) 
7350 * 
5Z8a9: C8 7356 PRPUT1 INY 
S@BA:s 61 7357 RTS 
7358 * 
SM8B: £4 FR 7359 KGCOUT BIT MYFLAG In buffer 
Saad: 12 WF 7368 BPL COUT1 Na 
S@eBF: C9 22 7361 CMP #5P 
529i: Fa @B 7362 BEQ COUTI 
S@93; 86 62 7363 STX xXxIO 
S295: AG FE 7364 LDX BUFX Yes 
S297: 9D a@ a6 7365 STA IN, X Stuff it 
Saga: EG FG 7366 INC BUFX Next 
S2I9C: AG 6A 7367 LDX xXI0O 
“™A9E: 40 67 #1 7368 COUTI JMP COUT Hi Ho Silver! 
, 7369 * 
S@A1: Ba 2C 737@ PRTGETYN BCS PRTGET Test setup by caller 
SAS: 85 El C371 STA TEMPS Save value, 
SZAS: AS 34 7372 LDA CY and scrn posn, 
SQ@A7: 85 63 @373 STA TCY in case of bad answer 
SQA9: AS SS 7374 LDA COL 
SQ2AB: 85 62 7375 STA TCOL 
S@AD: AS El 7376 PGYNI LDA TEMPS 
SQAF: 224 DF S2@ 7377 JSR HEXYN@ Send it 
S@Bbe: 2a a5 Sa 7378 JSR INPUTDEF 
SABS: #2 46 4F 7379 JSR AFETCH Get ist char 
S@BSB: AB 7384 TAY Need ans in Y 
SZ@B9: AQ FF 7381 LDA ##FF 
S@BB: 85 Ex 7382 STA NFLAG set for good number 
SMBD: Ca D9 7383 CPY #"Y 
S@BF: Fa 17 7384 BEQ PRTGET1 
SaCis 4A 7385 LSR 3; Make $7F 
3@aCe2: Ca CE 7386 CPY #"N 
SaC4: F2 12 7387 BEQ PRTGET1 get the number 
S@cGé: AS 63 7388 LDA TCV bad ans —- reset scern position 
SaC8: A4 Ge 7389 LDY TCOL 
S@aca: 22 EC 4F 7392 JSR SETUP Reset values/buffer/ete 
Sa@CcD: Fa DE 7391 BEQ PGYNi (bra) 
7392 * 
S@CF: #2 €9 Sa 7393 PRIGET JSR HEXOUT Print it 
De: 24 25 SA 7394 JSR INPUTDEF Get it 
SaDS: 24 3D 2a 7395 JSR GETNUMZ Convert it 


7396 3LDA VAL Input value 
Sapa; AG F7 7397 PRTGET1 LDX ANSNUM Selection number 
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“bpa: 


SDC s 


S@DD: 
SDF 
S@EL: 
SEE s 
SQE4 : 
SAE s 


SWE s 
SQEB : 
SIZED s 
S@EE s 
SIZIF i s 
DIF 3s 
SAF 4: 
SF Ss 
SFE s 
Sr 7 s 
Sara: 
SOF: 
SMFC : 
S@rDs 
_SWFF s 

121i: 
wits: 
Sias: 
51la7: 


S1@A: 
Siac: 
Sie: 
Siids 
alles 
SLi4s 
5116: 
SL1igs 
S1l1iA:s 
Slices 
SLliEs 


D1e2Os 


slei: 


sices 
Sile4: 
Sicés: 
a128's 
S1leA: 
S12c: 
LZE: 
S1i2F: 
3iSe: 
S1S4s 


a1 


a 


a 


bor) 


At) 
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7398 
7399 
7402 
7424 
7402 
743 
7404 
7405 
7426 
74Q7 
7428 
7429 
7412 
7414 
7412 
7413 
7414 
7415 
7416 
7417 
7418 
7419 
7420 
7421 
7422 
7423 
7424 
7425 
7426 
7427 
7428 
7429 
7430 
7431 
7432 
7433 
7434 
7435 
7436 
7437 
7438 
7439 
7442 
7441 
7442 
7443 
7444 
74455 
7446 
7447 
7448 
7449 
74510 
7451 
7452 


* 


HEX YNOUT 
HEXYNZ 


HEXYN1I 
* 


HE XOUT 


HE X 


HE XOUT 1 
% 


MYPUTLNM 


MYPUTLNA 


% 
MY PUT 1 


* 
PRDIG 


DIGi 


DIGe2 


BIT 
RTS 


BCS 
LDY 
ROL. 
BCS 
LDY 
JMp 


BIT 
BPL 
PHA 
LDA 
JSR 
PLA 
PHA 
LSR 
LSR 
LSR 
LSR 
JSR 
PLA 
AND 
ORA 
CMP 
BCC 
ADC 
JMP 


LDA 
STA 
STY 
LDY 
LDA 
BEQ 
JSR 
INY 
BNE 
INC 
BNE 


INY 
RTS 


STA 
LDX 
STX 
LDA 
STA 
LDA 
SEC 
SBC 
BCC 
STA 


NFLAG 


HE XOUT 
#YES 


HEXYN1 
#NO 
MYPUTLNM 


HE XMODE 
PRDIG 


#"'% 
KGCOUT 


HEX 


#SF 
#"2 
#": 
KGCOUT 
#6 
KGCOUT 


#> BACKUP 
VPTR+1 


(VPTR),Y 
MY PUT 4 
KGCOUT 


MYPUTLN1I 
VPTR+1 
MYPUTLN1I 


DECZ—1, X 
DIGS 
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Test it 
Return with plus if bad number 


test dane by caller 


send it 


edit in hex? ° 
re 


One pager 
Set pointer Was ’ putin’ 
Index 

Menu items 

Finished 
Send it 
Next 
Always 


mt 


(bra) 
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oa 


oa 


LETTER PERFECT Atari V6.4 Page: 149 
7453 INC XREG 

7454 BNE DIGe 

7455 DIGS LDA XREG 

7456 BNE DIG4 

7457 BIT VAL+1 

7458 BMI DIG4 

7459 LDA #$14 

74624 DIG4 EOR #" 

7461 CMP #SP 

7462 BEQ DIGS Skip spaces 
7463 JSR KGCOUT 

7464 ROR VAL+i1 

7465 DIGS DEX 

7466 BNE DIGi 

7467 LDA VAL 

7468 EOR #"2 

7469 JMP KGCOUT 

7471 * Config strings 

7472 * 

7473 * EXIT —- SELECT ON ONE PAGE! 
7474 MYEXIT DFB CR 

7475 DTC " @> Exit",CR,@ Common to all 
7476 * 

7477 BACKUP DFR CR 


7478 
7479 


7482 
7481 


7482 


7483 
7484 


DTC 
YES DTZ 
NO DTZ 
* 
SELECT DTZ 


DTZ 


"@2@.> Previous menu", CR, @ 


" Yes u 
" No it] 


"SELECT (@ - " 


u a s " 
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1B@:; 9B aa 7485 VIDCTRL DTC " --- VIDEO CONTROL ---",CR,CR,@ 

SiBe: AZ B1 AE 

S1BS: BE Am A 

SiR: B4 Ba AM 

S1BB: C3 EF EC 

ZIBE: FS ED EE 

SiCis: 9B 7486 DTC " 1.> 48 Column", CR 
siCe: AM Be AE 

SiCS: BE Aw Ag 

§1C8: Ce E99 F4 

SiCB: AZ BS AM 

S1CE: E6 FS EC 

=siDil: EC AD Fé 

91D4: E9 ES F7 

SiD7: Ada BB BA 

SiDA: 9B 7487 DTC “ #&.> Bit 3 full-view 82",CR 
JlDB: AM BS AE 

SIDE: BE AZ A 

S1Ei:s Ci FS FS 

SIE4: F4 EO EE 

SIE7: AY Ba BA 

SLiEA: AW ES EF 

SIED: EC FS ED 


SiF@: EE 9B aa 7488 DTC “ 3.> Austin 82 column", CR, 2 
JSIF3: Bi aa 7489 DTZ 1" Default 
7492 * 


GIFS: A AD A 
S1iF8: AZ AD AD 
SiIFB: AD Aa C4 
SIFE: C9 D3 CB 
Seais A’ C4 De 
se@4: C9 DG CS 
sea7: AY C4 CS 
seZA: C& Ci DS 
seap: CC D4 DS 
sel@: Aw AD AD 
veils: AD 9B 9E 
selGs mz 7491 DKDFLTS DTC. * --- DISK DRIVE DEFAULTS ---",CR,CR,@ 
S217: AW Bl AE 
selA: BE AZ A 
seiD: Ci ES ES 
seeds ES Fa F4 
see3: AM EL EC 
see6: EC 9B 7492 DTC “" 1.> Accept all",CR 
S228: AM Be AE 
were: BE AZ AZ 
Sseee: C6 E99 EC 
segl: ES Ag C4 
seG4: Fe ES F6 
Se37: ES BA SR 7493 DTC “ &.> File Drive:",CR 
S2SA: AZ BS AE 
BSD: BE AM A 
S244: C4 £9 ES 
se43: F4 ED EF 
se46: EE El Fe 


f 
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249: 
se4C s 
Se4F s 
S25e: 


seSss 


S258: 
S25Bs 
Seve: 
S261: 
S264: 
5267: 
Sc6As 


Seed: 


D2EF s 
Seve: 
S27538 
S275 
S27B: 
ScrEs 
Se2Gi: 
SHtG4 s 
we87s 
Seer: 
Se8D: 
PRE: 
JeI1s 
5294: 
S297 
S29A: 
Sede 
S2SF : 
ScAes 
SZAS s 
SeAe: 
52AB: 
SAE s 
S2B1: 
SeBb4 s 
S2B7: 
SeBAs 
SeBD: 
sel’: 
Secs: 
S2c4: 
Sec7s 
Seca: 
SecDs 
SeDa: 
DeDSs 
S2D6: 
eD9: 
SeDC: 
SeDF : 


Sees: 


LETTER PERFECT Atari V6.4 Page: i151 


7494 


7495 


7496 


7497 


7498 


7499 


75a 


750e 


DFLTS 


DTC 


DTC 
DTZ 


DTC 


DTC 


DTC 


DTC 


DTC 


DTC 


3.> Dictionary Drive:",CR 


4.)> Set Double Density?",CR,@ 


i 


-~-- FORMAT DEFAULTS ---",CR,CR,@ 


1.> Accept all",CR 


2&.> Top margin:",CR 


3.> Left margin:",CR 


4.> Justify:",CR 


5.) Width:",CR 
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‘BES: 
JEG: 
Needs 
SeEC: 
Deer 
Sere: 
Ser4: 
Der 7s 
SeFA: 
SeFDs 
S322: 
SSaS s 
S36 : 
SSO s 
SSC s 
SSE: 
Soils 
S314: 
SS1l73s 
S3ilAs 
DolDs 
53a: 
Sees: 
5326: 
53e9% 
o“MS2C's 
Soars 
moos 
53358 
B3088 
SSB: 
S33Es 
S3415 
S344: 
S47 s 
S34A: 
SS4D: 
aoe & 
S30e8 
5356: 
Bouse 
S35C 
Sour 
S36: 
SS638 
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75a4 


7547 


7528 


75a9 


7514 


DTC 


DTC 


DTC 


DTC 


DTC 


DTC 


DTC 


"12, > 


"11.> 


“Les? 


Page: 152 


Line spacing:",CR 


Printed lines/page:",CR 


Stap at end of page:",CR 


Font:",CR 


Margin adjust:",CR 


Header spacing:",CR 


Footer spacing:",CR 
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7Sii DTC 


7512 DTZ 
7513 DTZ 
7514 * 
7515 EDITQA DTZ 
7516 DTZ 
7517 * 
7518 * 
7519 EDHEX DTZ 
7524 DTZ 
7521 * 
752e FNTS DTC 


"13.> Indent:",CR 


"14.> Bottom margin:" 
B40 


"Edit printer values? CY/NIJ: " 
"hy" Default 


"Use decimal or hex for edit? [D/H]: " 
"HW" Default 


. --- VERTICAL SPACING/FONTS -—-~-",CR,CR,@ 
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SIF s 
S4lis 
S415: 
S417: 
ms41A: 
S41D: 
S422: 
S423: 
S426: 
S429 : 
S42C : 
S42F s 
S432 s 
S435: 
S438 3 
54368: 
S43E s 
S441: 
S444 3 
S447 3 
S440 5 
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7532 PCTRLS 


DTC 


DTC 


DTC 


DTC 


DTC 


DTC 


DTZ 
DTZ 


DTC 


7.?> 
p i 


Page: 154 


Accept all",CR 


1/2 Vert line:",CR 


Full vertical:",CR 


Font@:", CR 
Fornti:",CR 
Font2:",CR 
Font3a:" 
Default 
--- PRINTER CONTROLS ---",CR,CR,@ 
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ype: 


S408: 
S4AB;: 
S4AE s 
S4B1: 
S4B4 s 
S487: 
S4BAs 
S4BB : 
S4BE s 
S4Ci: 
S404: 
S407: 
S4CAs 
S4CD5 
S4CF : 
S4De: 
54D5: 
S4D8: 
54D 
S4DEs 
S4E1s 
5S4E3: 
S4E6: 
_S4ED: 
‘4EC: 
O4EF s 
S4Fa 5 
S4FS s 
S4F8: 
S4FBs 
S4FE: 
Sod s 
S524 : 
D7 s 
SSA s 
SSB s 
SSE s 
Sallis 
sol4s 
S517: 
SHLAA: 


SSics 


bas hea 
S521: 
5524: 
Boers 
S520 s 
SocDs 
BS 32s 


533% 


5536: 
35.39 8 


Dao § 


EC 
A 
BE 
C2 
E4 
ES 
EF 
9B 
Az 
BE 
Ce 
E4 
ES 
EF 
BA 
Az 
BE 
DS 
ES 
Eg 
Ad 
BA 
A 
BE 
DS 
ES 
EQ 
A 
EG 
AZ 
BE 
DS 
ES 
ES 
Fi 
9B 
Az 
BE 
DS 
FS 
EQ 
BA 
Bi 


A 
Ag 
AD 
Da 
CE 
De 
c9 
A 
Cé 
AD 
9B 
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7533 DTC " 1.> Accept all",CR 
7534 DTC " @.> Boldface on:",CR 
7535 pTc " 3.> Boldface off:",CR 


~“ 
ia) 
i) 
n 


«J 
iil 
OJ 
o 


7539 
7542 
7541 * 


7542 PMISC 


pTc " 4.> Underline on:",CR 
DTC " 5.> Underline off:",CR 
DTC " 6 > Superscript:",CR 
DTZ " 7.> Subscripts" 

DTZ “i Default 


pTc " --- PRINTER MISC INFO --~-",CR,CR,@ 
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7543 DTC " 1.> Accept all",CR 

73544 ;DTC " 2a) Send 8-bit data?",CR 
7240 sDTEC ™ aa) Line feed on C.R.?",CR 


7547 
7548 
7549 * 


7554 ZSPMSG 


DTC 


DTZ 
DTZ 


DTC 


DTC 


2.) Bold char double-width?",CR 


3.> Back-space character:" 


a ‘oh Default 


--- PRINTER DOT SPACING INFO -—-~—",CR,CR, 


1.> Accept all",CR 
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SSE1: 9B 7352 DTC " &.> Value for @dot spacing:",CR 


owe Ds 9B 7553 DTC " (For dat fill offset) ",CR 


we1C: BA 9B 7554 DTC " 3.> Max dots to add per char:",CR 


=639: E4 A9 SR 7555 DTC ° (For justification pad)",CR 


J65A: BA 9B 7556 DTC " 4.> HMI Value for 1/124 inch:",CR 
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7558 


7559 
75624 
7561 EDITCHAR 


7563 


7564 


DTC 


DTC 


DTZ 
DTZ 


DTC 


DTC 


DTC 


ae) 


ang) ae 


--- PROPORTIONAL CHARACTER SET ---",CR,CR 


1.> 


2.> 


Page: 158 


(For bold character)", CR 


HMI-Controal prefix:",CR 


(2nd Control value)" 
Default 


Accept all",CR,CR 


Edit all characters", CR,CR 
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7565 DTZ " 3.) Edit on demand" 

7566 DTZ “1 Default 

7567 * 

7568 TITLE ASC "LINUM CHARACTER DOT WIDTH" 

7569 DFB CR,CR,CR,@ 

7574 * 

7571 GQEDIT DTZ "Edit which line number? : " 

75/72 * 

7573 EINST DTC "<{RETURN>) Allows selection of any line",CR 


7 Feb-1984 


LETTER PERFECT Atari V6.@ Page: 162 

7574 DTC "“ Any other key stops/starts Listing... ",CR, 
T3735 * 

7576 PREFIX 

7577 UPPER DTZ “UPPERCASE” 

7578 LOWER DTZ “lowercase” 

7579 SPACE br2 Space” 

758a@ BLNK bTz 

7581 ACCENT DTZ 6" Accent " 

7582 CURL DTZ “ Tilde" 

7583 VERT DTZ “Vert rule" 

7584 LBRAC DTZ “Left brace" 

7585 RBRAC DTZ "Right brace" 

7586 * 

7587 EXITM 

7588 DTG * -~-~ EXIT MENU —--",CR,CR,@ 


7 Feb-1984 


529: 
S6e2C : 
S8eF : 
3832: 
5834: 
3837: 
S830: 
SG3Ds 
S842: 
SB43% 
S846: 
m49 s 
S84C s 
SG4F : 
26523 
Sa55: 
S85e: 
S85A: 
S8SDs 
S862: 
SBE s 
S866: 
S869: 
S660: 

_W&GF : 

S72: 
GEB7Ss 
n8B78: 
S87Bk: 
S87E: 
S8G1: 
S884s 
3887: 
5889: 


Single pagers 


ag 


ag 


ax 


9B 


EC 


68 


BF 
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rai | 


7592 
7593 
7594 
7595 
7396 
7597 
73598 
73599 


76aa 
7621 
7602 
76S 
7644 


7685 
766 


767 


7648 


DTC 


DTC 


DTC 


DTZ 
DTZ 
* 


* 
FINIS EQU 


ame gree Save 


2a? Save 


" 3.) Goto 


" 4.) Exit 
te 


* 


* Finis is marker for load 


LASTONE EQU 
* 


PAU 
LST 


* Config One pagers 


* 


Page: 161 


data toa program disk",CR 


toa disk & add ta directory",CR 


begirming", CR 


without update" 
Default 


size 


" Single pagers " 


ON 


DFW MYEXIT, SELECT 


DFW EDHEX,EDITGO 


DFW 


* LP One pagers 


DFW 


PREFIX, RBRAC 


LCR, PCHRS 


DFW BLDCH, PSPEC 
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BOF: A7 a9 
S8AS: 22 WA 
S8A7: 29 12 
S8AB: 14 14 
BAF: Ba 14 
S8Bs: B7 11 


J8B7: wa 12 


$4347 BYTES. 


E7 


94 


EC 


AA 


EF 


D7 


ae, 
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7609 DFW PSPZ1z, PSPE 

7612 DFW FLINK, GETFMT 

7611 DFW NM, COPS 

7612 DFW ERR,FILE 

7613 DFW MMC, PMC 

7614 DFW SPOPT, MTOF 

7615 


DFW NID,PFID 
DFW PMNU, MOVID 
DFW DNBLK, CLRATABS 


DFW GLBS,GLINS 
sie 
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yw Bo: ADDRESS: SYMBOL: ADDRESS: SYMBOL: ADDRESS: SYMBOL: ADDRESS: 
ABASE $2266 ACALC_A #27C3 ACALC_B $247Ce ACALC_Ba $27Ca 
ACALC_Bi $27DE ACALC_Be $A7ES ACCENT $57CS ADAI $2602 
ADDES $1E75 ADJ $1672 ADJ1 $1681 ADJe $168E 
ADJDA $27FS ADR $AZAG ADRT XT $22 ADV $2768 
ADV 1 $2772 ADV_A $2768 ADV_AlL $2772 ADV_B $2768 
ADV_Bl $772 AFETCH $4F46 AIO $22F BR AMAR $2288 
ANSNUM $2F 7 APTR S20B4 ASKCHZ $4D41 ASKCH1 $4D64 
ASKCHAR $4DZ2E ASKCHX $4D3C ASKEDIT S4BB6 ASKHE X $4025 
AUST INE $3722 AUST INF DK SAND AUX $151A BACKUP $5166 
BAD $2B92 BADN $2639 BADT $144C BASC1_A $27 8F 
BASC1_B $278F BASCALC $2787 BASCALC_A $2787 BASCALC_E $2787 
BASE SZ2E 4 BCHANGE $NIZS BDOFF $2518 BDW $2505 
BEGIN $19AD BEGINI $19B2 BELC $2287 BELL $2746, 
BELLA $2746 BELL _B $2746 BFBGN $3542 BFEND $4E221 
BFF $1469 BHANDLE $2926 BITS $3522 BITSDK $2062 
BIU $1474 BKDK $123B BKDSK $12DD BKPGE $19D4 
BLANK $215C BLD SQA BLDCH $2974 BL.DCH1 $2979 
BLNK $5703 BLNKE $2159 BLNKe $2157 BLOCK $294 
RLPRCR $0916 BMAP S$2OAS BMAP 1 $2OVE BMAP= $2819 
BOFF $ag2C BOLD $292 BOLD1 $209 1 BOLDC $2546 
BOOT SAAD BOTMAR $228C BPS $2ACA BPTR $22B4 
BRKV SAFE RS $1777 BSC $22BC BSSC $O526 
_ESUB $2209 BSUBI2 $22C7 BS_A $2777 BS_B $2777 

TDSK $1237 BUF X Sar e BUHDL. $2945 BUHDL1 $2949 
sUSS $0514 BYPTR $2QF ez BYTE SAaIg2 CADV $18D3 
CAPS $228 CBACK $18FA CBACKI $1927 CBWRD $19E4 
CBWRD@ $19E 1 CBWRD1 $19EE CC1 $2744 CCce $274F 
CCS $2753 CC4 $275E CCNTS $2739 cbpo $298C 
CDWN $169A CDWN1 $169C CENTER $2093 CGKEY $1 DFG 
CHAR SAGA CHARLP $4D6B CHECK $1E8B CHECK SLED4 
CHECK1 $1E9E CHKLEN $12BS CHKLEN1 $1QBF CHKP1 $4CD@ 
CHKPE $4D26 CHNGW $1963 CHRCNT $209B CINDT $24D99 
CINDT1 $2@DAD CINDTe $2IDB CINDTS $2DC 1 Cio $E456 
CIlODO $26Ee CKES $4FA9 CKEY $1DF1 CKRTS $4FR8 
CLAT1 $17D2 CLEAR $2C6D CLEOL $47FS CLEOL1 $27F 7 
CLEOL1_A $27F 7 CLEOL_A $27FS CLEOL_B $27FS CLEOL Bi $27F7 
CLEOP $1DC6é CLEOP1 $1DCE CLEOW $1DC8 CLOSE 1 $26E4 
CLOSER $28DA CLRi s2Cl7a CLRATABS $17CC CLRH $2718 
CLRHi $271E CLRL $2CSC CLRLN $47F 2 CLRLN_A $27F 2 
CLRLN_B $47F2 CLRTAB $17E1 CLRUW $2F18 CLS $1DBE 
CLS1 $1DC2 CLTOP $27EC CLTOP_A $27EC CLTOP_B $27EC 
CMP1e $1E82 CNT $220AC CNT1 Sanz CNTR SAQAS 
COL $AASS COLDP $ZACA COLDST $AE44 COLM $201 
COLOR4 $4208 COL. PM2 $D@1e2 COMOP $2929 COND $22A8 
CONFIG $4B2 1 CONT $S31FF CONTROL $QBB7 COPS $12EC 
COPYL. $27CE COUNT $221DB COUT $2167 COUT 1 $509E 
CPAR $18D7 CPRINT $ZF GR CPYBF $16EC CR $2298 
CRDO $2165 CRET $4 7AF CRET_A $279E CRET_B $27 9E 
“RGE $1989 CRTBL._A $Z28AA CRTBL_B $282 CSCROLL $15E1 

SNDT $3399 CSR1 $15F2 CSRe $1604 CSV $QQE7 
CTBL $0558 CTRL $ZBB9 CTRLE $ZBCS CTRLR $DS28 
CTRLR_A $DSF6 CTRLS $15ee CUP $1915 CUP1 $191E 


CURL $57CF CV $2054 CWD $Z22AA CWRD $18E4 
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ARD 1 
DATAB 
DEID 
DEM 
DENAME 
DBOPNS 
DEBREAD 
DCEND 
DCHARS 
DCHARX 
DCMe 
DCME 
DCMATCH 
pcomi 
DDCHK1 
DDS 
DEC@_B 
DECS 
DEFAULT 
DEL.BUF 1 
DEL TXT 
DENS1 
DFLTS 
DHRD 
_DIG1 

IGS 
otRe 
DIRRD 
DISV1 
DKDEF 11 
DLDIR 
DNAME 
DOBOOT 
boc 
DOCUR_A 
DODEL 1 
DOFUNC 
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$18EF 
$3802 
$1EA3 
$1D4D 
$1282 
$293E 
$2OS6 
$Aa96 
$1891 
$18CD 
$3201 
$32F6 
$32R5 
$28BA 
$3128 
$1331 
$2812 
$2145 
$2A9 1 
$17C3 
$2BSF 
$1325 
$526F 
$ 34D 
$5128 
$514F 
$258D 
$286E 
$2882 
$4B54 
$2878 
$12CC 
$24CE 
$1242 
$2882 
$2791 
$1284 
$128C 
$242A 
$1Ble 
$2017 
$1CF1 
$2D97 
$1732 
$24CE 
$25E6 
$2 BSE 
$324F 
$3161 
$12D8 
$4CE 1 
$2323 
$ASAE 
$26A4 
$1767 


DAAC 
DBACK 
DBLK3 
DEM1 
DBOPEN 
DBOPN4 
DBVAL. 
DCHAR 
DCHAR4 
DCHK 
DCMS 
DCM7 
DCMND 
pDcoMxX 
DDEV 
DDU 
DEC1 
DECR 
DEL1 
DELCLN 
DELW@ 
DERR 
DF REE 
DHSPC 
pDIGe 
DINIT 
DIRS 
DIRS 
DISVe 
DKDEF2 
DLEN 
DNBLK 
DOBUF 
DOCHK 
DOCUR_B 
DODN 
DOHDR 
DOLEN1 
DOMENU 
DORPL2 
DOSR1 
DOSYBRK 
DOWND 
DPSET 
DREX 
DREX4 
DRTS4 
DRTSB 
DRTSS1 
DSKERR 
DSPACEZ 
DTABS 
DTMF 
DVE 
DWRD1 
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DABC 
DBBUFF 
DBLKRD 
DBMz 
DBOPEN1 
DBPR 
DBWRD 
DCHAR1 
DCHARS 
DCHK1i 
DCM4 
pcCMs 
DCNT 
DDCHK 
DDID 
DECa 
DECI_A 
DECR@ 
DEL2 
DELLIN 
DELWRD 
DFE 
DFU 
DICT 
DIGS 
DIR 
DIRB 
DIRW 
DKDEF 
DKDEF21 
DLN 
DNBLK1 
DOBUF 1 
DOCONFIG 
DODBL. 
DODN1 
DOINFO 
DOLEN2 
DOOME 
DOSGL 
DOSR2 
DOVID 
DOWRDS 
DREG 
DREX1 
DRRD1 
DRTSS 
DRTS9 
DSEC 
DSK INV 
DSPACEX 
DTABS 1 
DTMN 
DVLEN 
DWRD2 
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$178A 
$3F 22 
$3169 
$1D6é6 
$292B 
$2A14 
$1764 
$187E 
$189D 
$2204 
$32DD 
$3318 
$22C6 
$311E 
$3556 
$2612 
$QB2E 
$1912 
$2EAZ 
$174A 
$2B4e 
$1443 
$2521 
$1294 
$513A 
$2577 
$3D02 
$288A 
$4B3A 
$4B7C 
$1752 
$171B 
$17A9 
$24AC 
$1Da4 
S235A1 
$2952 
$12A9 
$1F6A 
$1CD& 
$2Cee2 
$4B17 
$2D84 
$D581 
$25D6 
$288C 
$2CF9 
$33C3 
$043 
$E453 
$4CFD 
$17F4 
$2ACF 
$4328 
$1776 
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AW 
EDHEX 
EDI TONE 
EMAIN 
ENDDB 
EOP 
ERR 
ERTS4 
ESCDOS 
EXIT 
FATAL 
FB4 
FRUP 
FDEL 
FGSN 
FH4 
FILER 
FILLS 
FIN@ 
FINBK 1 
FINDS 
FINISH 
FLINK® 
FMC 
EMT2 

IDTRK 
rNDTRK4 
FNME 1 
FNMES 
FOK 
FONT 
FONTS 
FREE 
FRTS4 
FSAVE1 
FSNDX 
FSNDX4 
FSTR 
FTS 
FUNLOCK 
GRE 
GCHARS 
GDBOOT 
GENESIS 
GETEND 
GETK 
GETLN@ 
GETNAME 
GETONE 
GFNTS1 

BYE X 1 

Fe 
GLADV1 
GLES 
GLCTL_A 
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$2207 
$53BA 
$4E2 1 
$15BEB 
$QB89 
$2012 
$1412 
$1AE9 
$1267 
$2ABA 
$26EF 
$2AE8 
$2ASS 
$2407 
$3157 
$ZCAQ 
$232C 
$1662 
$4ES1 
$4E4B 
$1ACG 
$4E31 
$AAS1 
$14B8 
S$Z26E3 
$253C 
$2568 
$2668 
$269A 
$2CC9 
$2287 
$2552 
$2B1E 
$27F4 
$L4F 2 
$322B 
$324D 
$12Ae 
$27DA 
$2419 
$12D2 
$2CFA 
$3953 
$2462 
$4FES 
$4B35 
$2uiC7 
$25F5 
$1FB1 
$4025 
$2016 
$2034 
$2235 
$2223 
$ZBFS 


DYP 
EDIT 
EDITOR 
EMAINI 
ENTRY 
EOPAGE 
ERTS1 
ESCB 
ESCOUT 
EXITM 
FEI 
FBS 
FCAP 
FDEL1 
FGSNQ 
FH2 
FILL 
FILL4 
FINI 
FINBKE 
FIND4 
FLE 
FLKERR 
FMNU 
FMTS 
FNDTRK1 
FNDTRKS 
FNME2 
FNME6 
FOKL 
FONT 
FORMAT 
FRTS1 
FRTSS 
FSAVE2 
FSNDX@ 
FSP 
FTABLE 
FTSa 
FWRD 
GCHAR 
GCTRL1 
GDEF 
GET4 
GETFMT 
GETLN 
GETN 
GETNN 
GETSP 
GFNTS2 
GHEX2 
GHFS 
GLBGN 
GLESa 
GLCTL_B 


$2ace 
S22F9 
$15B5 
$15Ce 
$1992 
$2CFE 
$16Az 
$1042 
$215F 
$57F8 
$2AS1 
$2A92 
$1FBA 
$24BA 
$3150 
$aCia 
$164F 
$1666 
$4E5A 
$4E4E 
$1ADe 
$1421 
$24BS 
$12BC 
$26FC 
$2543 
$2569 
$2672 
$Z6A7 
$ZCDC 
$0538 
$26BA 
$23A7 
$28CC 
$24F9 
$3225 
$AZAS 
$152aC 
$27RF 
$2B7C 
$2CCF 
$4C62 
$4BC6 
$4F BD 
$2A94 
$229A 
$4FCA 
$4FD5 
$1277 
$4042 
$201E 
$2C4D 
$22e2A 
$221F 
$2BF 3 
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ECHAR 
EDITALL 
EDITQ 
EMENU 
EOLP 
EOT 
ERTS& 
ESCDO 
ESTORE 
FAR 
FBe 
FBG 
FCAPIL 
FETCH 
FGSN1 
FHANDLE 
FILL 
FILLS 
FINE 
FIND 
FINDQ 
FLINK 
FLOCK 
FMT 
FNAME 
FNDTRKE 
FNF 
FNMES 
FNNF 
FOKEe 
FONT 1 
FPRT 
FRTS& 
FSAVE 
FSAVES 
FSNDX2 
FSTKH 
FTL 
FTSP 
FWRD@ 
GCHARI 
GCTRLE 
GDEF 1 
GETG 
GETFTR 
GETLN@ 
GETN 
GETNUM 
GETSP1 
GFONE 
BHF 
GKEY 
GLEBGNA 
GLCAN 
GLDES 
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$2547 
$4DEe 
$5398 
$5233 
S2CAF 
$2018 
$17CB 
$1053 
$1F 52 
$Z2BE 
$2AS4 
$2A9C 
$1F BD 
$1FAS 
$315A 
$Z2BF9 
$1654 
$1669 
$4ESF 
$ 1AAD 
$1ASD 
$0ALZ 
$241F 
SAAAE, 
$2121 
$2552 
$142C 
$268A 
$2672 
$2CEF 
$2540 
$1AS1 
$2418 
$24De2 
$251C 
$322F 
$14E7 
$143A 
$ZZGBA 
$2B74 
$2CDE 
$4C7B 
$4BD1 
$4FB9 
$2AGA 
$2094 
$4FC6 
$2040 
$1Q7F 
$265E 
$2Ce6 
$1DFB 
$2227 
$224B 
$2251 


ECHO 
EDITCHAR 
EINST 
EMODE 
EOLPi 
EQOUT 
ERTSS 
ESCDOe2 
EWRD 
FAST 
FBS 
FR7 
FCNT 
FFLAG 
FGSNe 
FItLe 
PItke 
FILLG 
FINS 
FIND1 
FINIS 
FLINK1 
FLU1L 
FMT 1 
FNDNAME 
FNDTRKS 
FNFERR 
FNME4 
FNTS 
FOKS 
FONT2 
FPRT@ 
FRTSS 
FSAVER 
FSAVE4 
FSNDX3 
FSTKL 
FTR 
FUNIT 
FWRD1 
GCHARe 
GCTRLS 
GDEFe 
GETDEV 
GETHDR 
GETLN1 
GETNI 
GETNUMA 
GFNTS 
GHEX 
GHF 1 
GLADV 
GLER 
GLCTL 
GLDEL 


$2192 
$56AD 
$5755 
$22F 1 
$ZCBA 
$2162 
$19C5 
$126E 
$2F 86 
$1EC1 
$Z2AS7 
$2AR7 
$22C8 
$227 
$3163 
$14AA 
$165C 
$166C 
$4E67 
$1ARZ 
$588B 
$2ALZ 
$2423 
$26D1 
$2661 
$2562 
$2439 
$268C 
$53E1 
$2CF9 
$2548 
$1LA4E 
$265D 
$24E 1 
$25 1F 
$3242) 
$14EE 
S27 
$22BE 
$2B88 
$2CE4 
$4033 
$4BEF 
$1C8a 
$2AB4 
$20B3 
$25F8 
$243D 
$4018 
$2026 
$2C31 
$222E 
$1AG 
SBF S 
$2254 
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\peL1 
GLEND@ 
GLINEQ 
GLINS 
GNAME 
GNAMES 
GNMEX 
GOEOT 
GPMe 
GPMISCX 
GSNDX3 
GTEMTE 
GTNZ 
GWNUM 
HDR 
HDRD1 
HEX 
HEXYN@ 
HFCOM 
HL INE 
HOMEC 
HSAVE_B 
HVSAVE_A 
LBUFF 
_INBPTR 

ICR 
aNDi 
INDS 
INDICT 
INS2 
INSBFE 
INSLIN 
INSMC_B 
INSSP1 
INVELG 
IOE 
ISD 
ISSRC 
JLSUB 
IPS 
JIPRINT 
KEY1_A 
KEY3_A 
KEY_B3 
KGETCH 
KIN 
KTBL 
LDO 
LEND1 
LF_B 
AMAR 

WCTRL 
LOADS 
Loca 
LOWER 


LETTER PERFECT Atari V6.4 


$2258 
$2245 
$QB72 
$227A 
$261D 
$263E 
$2652 
$193E 
$4CCS 
$4CAF 
$2BC9 
$2AAB 
$2054 
$2F AQ 
SAMAa 
$2061 
SSF F 
$S52DF 
$2322) 
$21AG 
$19B3 
$2BEE 
$ZiBEA 
$0344 
$2D47 
$228B 
$ZDFez 
$ZE2A 
$32FG 
$1AZE 
$1723 
$19FC 
$2816 
$12E7 
SIZUAF 21 
$1417 
$2302 
$22F5 
$2DC4 
$2F 98 
$2F SA 
$2835 
$084E 
$284E 
$3961 
E3741 74) 917) 
$1MF7 
$2077 
$2C97 
$47A2 
$2205 
$12C8 
$2441 
SAA 
$5 7AE 


GLDEL2 
GLEOL 
GLINE1 
GLINS1 
GNAME@ 
GNAME4 
GOEOL. 
GOEOT1 
GPMISC 
GPTR 
GSNDX4 
GTFMT3 
GWNZ 
GWRD 
HDR1i 
HDRRD 
HEXMODE 
HEXYN1 
HFLAG 
HOLD 
HREAD 
HSEC 
HVSAVE_B 
ICMND 
INCQ 
INCTXT 
IND& 
INDE1 
INIT 
INS3 
INSBFS 
INSM 
INSRT 
INST 
INVM 1 
IPRC1 
ISDE 
ISTR 
JMARK 
IP4 
JUSTIFY 
KEYe 
KEYREG 
KFNC 
KILL 
KLIK 
LASTONE 
LEN 
LEND@ 
LINE 
LNAME 
LOAD 
LOAD4 
LOC 
Lpas 


$2269 
$223F 
S2B92 
$2287 
$2613 
$2640 
$1952 
$1941 
$4C8E 
$203A 
$2BCE 
$2ABR 
$2FAS 
$2F89 
$137C 
$2858 
$2AF 8 
$5SZE6 
SAQAE 
$S4E1A 
$2725 
$4113 
$Z8EA 
$0342 
$2091 
$2289 
$ZEA2 
$ZIDF9 
$4B2C 
$1LASL 
$1749 
$aaDde 
$2EBZ 
$22D5 
$1F92 
2C88 
$22FE 
$1272 
$15E6 
$ZIFA4 
$2082 
$Z85E 
$@2FC 
$125D 
$229F 
SIZE 
$588B 
$22DC 
$2CA9 
$22A 1 
$1i26c 
$23F5 
$245A 
SQA 1 
$1QQE 
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GLDEL3 
GLEOL@ 
GLINE@ 
GLINS@ 
GNAME 1 
GNAME X 
GOEOP 
GOPGE 
GPMISC1 
GSNDX1 
GSPT 
GTFMT4 
GWNi 
HADDR 
HDR& 
HDRWT 
HEXOUT 
HEXYNOUT 
HF MODE 
HOME 
HSAVE 
HTYP 
HYP 
ILEN 
INCPGN 
INCVAL. 
IND3 
INDENT 
INPUTDEF 
INSBF 
INSERT 
INSMC 
INSRT1 
INST 1 
INVMOVE 
ISBK 
ISDU 
JFLAG 
JIP4 
IPS 
KBUFF 
KEY2_A 
KEY_Bi 
KFNC1 


LOGO 
LPRINT 
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$226F 
$223C 
SOBA4 
$2299 
$2621 
$2650 
$194C 
$1906 
$4097 
$2BAB 
$QECD 
$QAC1 
$2F BB 
$1FF7 
$13D6 
$2850 
$50E9 
$5QDD 
$OQA9 
$20D9 
$QBEE 
$2110 
$OQC3 
$0346 
$2080 
$2083 
$OE11 
$O096 
$5005 
$16EE 
$1A14 
$0816 
$2EBF 
$0824 
$1F72 
$22FB 
$2300 
$0092 
$OF7F 
$0FB7 
$3480 
$083F 
$0835 
$1263 
$SEZAI 
$00D1 
$57E1 
$0093 
$Q7B3 
$15CD 
$19C1 
$248B 
$2465 
$20E7 
$OFFO 


GLEND 
GLINE 
GLINES 
GLSTK 
GNAMEe 
GNB 
GOEOP1 
GPM1 
GPMISCe 
GBSNDX2 
GTFMT1 
GTN1 
GWNz 
HCUR_B 
HDRE 
HDSP 
HEXOUT 1 
HFC1 
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beri 


LPTHE 
MARGIN 
MDS 
MENUZ 
MERGE 
MMC 
MNADJ1 
MNERA 
MODE 
MOVE 1 
MRTS3 
MSUB 1 
MTOF 
MULT 
MVL. 4 
MWW_B 
MYBC_A 
MYFLAG 
MYPUT 1 
MYSET 
MYVB_A 
MYWAITI 


LETTER PERFECT Atari V6.4 


$2FFD 
Sar FS 
$0081 
$2ACD 
$1C28 
$2486 
$14B2 
$1C04A 
$2152 
$iZDS8 
$1F 35 
$1E07 
$2B33 
$11D7 
$1E68 
S2B65 
$28E9 
$2787 
$Q2FB 
$5122 
$393B 
$281) 
$4ECC 
$32CE 
$1CAS 
$2Qee 
$QC6E 
$5182 
$1AAS 
$2612 
$4E28 
$1213 
$3374 
$1AEA 
$287D 
$28F9 
$2EDB 
$4FA8 
$4 11221 
$24D13 
SABLE 
$2AG4 
$33C4 
$WA4S 
$1 5e2F 
$11FE 
$AABS 
$ZAEE 
$5077 
$1ES4 
$2UZicd 
$1B79 
$32BF 
$2CA7 
$0922 


LPRT& 
LSPACE 
MARK 
MDWN 
MENUS 
MIN 
MIMIN 
MNCHR 
MNID 
MODE 1 
MOVID 
MSTKH 
MSX 
MTOP 
MULW 
MVR 
MXB 
MYBC_B 
MYINIT 
MY PUTLNGA 
MYVE 
MYVB_B 
NAME 
NDMSG 
NEWDEV1 
NFMG 
NLINE 1 
NOB 
NOGO 
NONUM 
NOUT 
NWD 4 
NWSTR 
NX TONE 1 
OFCUR_B 
opsse 
OTPT1 
PABORT 
PBUFF 
PCOND1 
PCOUT2 
PCTRLS 
PEOP 
PEOT2 
pPGoOS 
PLNE 
PMAIN 
PMAINS 
PMISC 
PMUL 1 
POUT 
PPRM1 
PRAPI 
PRCNT4 
PRD| 
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LPRTS 
M23 
MASK 
MENU 
MENUA IL 
MLOAD 
MMOVE 
MNCLR 
MINST RH 
MODIFY 
MPOS 
MSTKL 
MTMP 
MUL 1 
MUP 
MWW 
MXSPC 
MYCOUT 
MYLOAD 
MYPUTLNM 
MYVB1 
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LPRT4 
MAIN 
MAX 
MENU 1 
MENUANS 
MM 4 
MNADJ 
MNENT 
MNSTRL 
MOVE 
MRTS2 
MSUB 
MTOR 
MULE 
MVL. 
MWW_A 
MYBC 
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DNF 
PRFN1 
PRHFQ 
PRHF4 
PRINT2 
PRINTV 
PRNZ 
PRNCNT 
PRS1 
PRTGE 
PRTGET1 
PRTS@ 
PRTSE 
PRTX1 
PRTXT 
PRW3 
PRWRDS 
PRWW 
PS1i3 
PSAVE 
PSPZ 
PSP61 
PSPEC1 
PSTHL. 

_PSUB2 

TRTXT 
PUDL 
PUTDEV 
PUTLNG 
PUTMENU 
PWARM 
GEDIT 
REL.K 
RDCAP 
RDCHARS 
RDKEY _B 
REPLACE 
RESETAQ 
RF 1 
RFS 
RFEFEND 
RGEE 
RING_A 
ROPT 
RPLACE 
RPLWD1 
RWi 
RWEIL.K 
SCERR 
SCOUT 

-SCROL 
ZRUP 
SEARCH 
SEND1 
SEQ 


LETTER PERFECT Atari V6.4 


$2aF9 
$259E 
$QE SF 
$Z2E9C 
$1 DAG 
$E432 
$212A 
$209A 
$4F 9D 
$4F6E 
$S52D8 
$29E4 
$4D98 
$3286 
$3268 
$302C 
$2FCD 
$3239 
$2395 
$4E6B 
$29E 1 
$ZAALZ 
$2994 
$14F9 
$23B8 
$1FEE 
$2982 
$213F 
$2107 
$5271 
$2D39 
$573A 
$327C 
$1FAB 
S2SE4 
$2722 
$1LAGG 
$2BEB 
$2988 
$29C6 
$2AN7 
$1C9E 
$274E 
$F 16 
$2E7C 
$2EE 1 
$3203 
$327F 
$1E4B 
$2176 
$2703 
$1E Se 
S1LAGG 
S4DAG 
SQags 


PREF IX 
PRFN& 
PRHF 1 
PRHFS 
PRINTS 
PRINT_4 
PRNS 
PRNL 
PRST 
PRTDCT 
PRTGETYN 
PRTSS 
PRTS7 
PRT X2 
PRVAL. 
PRW4 
PRWS2 
PRWWI2 
PS14 
PSAVEe 
PSP4 
PSPG6E 
PSPECe 
PSTR 
PSX1 
PTUWL 
PUT1I_A 
PUTLN 
PUTLINE 
PUTMENUZ 
PWD 
QSTR 
RBRAC 
RDCHAR 
RDFLG 
READ 
RESAVE 
RESETAL 
RFe& 
RFG 
RFS 
RING 


PRERR 
PRFOOT 
PRHF2 
PRINT 
PRINT4 
PRMN 
PRN4 
PRNL 1 
PRT1 
PRTDOC 
PRTN 
PRTS4 
PRTSA 
PRTX3 
PRW1 
PRWC 
PRWS1 
PRWW1 
PS21 
PSKUP 
PSPS 
PSP7 
PSPSK 
PSTUFF 
PTOGC 
PTWD 
puTzea 
PUTLN@ 
PUTLNM 
PUTTOP_A 
ai 
QUESTION 
RCNT 
RDCHARI 
RDKEY 
REG 
RESET 
RESTCH 
RF3 
RF7 
RFS1 
RING1 
RING_B1 
ROPT2 
RPLMD1 
RPLWD3 
RWS 
SAVMSC 
SCLTOP_A 
SCR2 
SCROLE 
SDLIST 
SELD1 
SENDIT 
SET23 
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$21F2 
$ZE 3M 
$QE7E 
$1D9i 
$1DES 
$2347 
$2132 
$2D04 
$305A 
$324C 
$4F 62 
$2CeS 
$1A03F 
$329E 
$2FFS 
$2095 
$2FD8 
$323C 
$23C2 
$2079 
$29ES 
$29AD 
$153E 
$4E9E 
$2CBe 
$2CC4 
$4FFB 
$21BB 
$21Be 
$28C9 
$162A 
$4F2F 
$2aC9 
$2319 
$2722 
$D58a2 
$2489 
$1842 
$299C 
$29E5 
$29F 7 
$274) 
$274D 
$2F 1A 
$1AFS 
$2EES 
$329E 
$2258 
$27E9 
$21DA 
$27E 1 
$2230 
$4EAQ 
$4DB3 
$2195 


PRERR1 
PRHF 
PRHF3 
PRINT1 
PRINT6 
PRN1 
PRNS 
PRS 
PRTGA 
PRTGET 
PRTS1 
PRTSS 
PRTS9 
PRTX4 
PRWE 
PRWRD 
PRWS2 
PS1i1 
psee 
pspaiz 
PSPE 
PSPEC 
PSTKH 
PSUB1 
PTR 
PTYPE 
PUTCUR 
PUTLN4 
PUTLNS 
PUTTOP_B 
Q@CR 
QUIT 
RD1 
RDCHAR® 
RDKEY_A 
REJUST 
RESETA 
RETID 


SBLNK 


SCLTOP_B_B 


SCRDO 
SCROUT 
SDS 
SELECT 
SENDUP 
SETB 


$2214 
$E 3D 
$2E9 1 
$1D95 
$4F57 
$2126 
$2138 
$4F 8A 
$4FE64 
$52CF 
$297F 
$2CFD 
$1ZE2 
$32AD 
$2FFF 
$2FF 1 
$2FE6 
$237F 
$23CE 
$29A7 
$29E7 
$298F 
$14F5 
$2362 
SAAR 
$2524 
$1C4F 
$21BD 
$2 1AF 
$Z8CG 
$1632 
$16121F 
$204E 
$2311 
$27 212 
$19A4 
$2BE 
$13FE 
$29BS 
$2964 
$148E 
$274D 
$1Z24F 
$QF 2E 
$2ED4 
$2ABE 
$32A1 
$2188 
$A7E9 
$21DD 
$2174 
$1325 
$5183 
$4DE1 
$3252 
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ITBI 
SETBS 
SETHV 
SETIT_B 
SETPTRS 
SETUP1 
SGLDB 
SHDM3 
SHWT1 
SHWTBS 
SKPWRD 
SLOW 
SNDEXTB 


STOADV_B 
STP 
STSGL 
SUB 
SUBP 
SUFLP1 
SVN 
SWRITE 
SWRITE_B 
TABI 
TABS 
TBLNS 
TCNT 
TDCC 
TEMP2 
TIME 4 
TLOAD 
TOBS 
TOF 1 
TOPMAR 
TOTXTD 
TSRCH1 
8X1 

_ AEND 
TXTO 
UDIRP 
ULOFF 
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$3259 
$3268 
$22Dz 
$27EF 
$3940 
$4FFe2 
$294D 
$3357 
$1845 
$1846 
$2072 
$1EBS 
S11lE4 
$Aa22 
$2DFA 
$2DAE 
$2D57 
$2F 45 
$1iBE 
$2B5G6 
$2F78 
$2BE7 
$LAIA 
$1FA4 
$2048 
$2i2DA 
$1CES 
$4D4 
$27E3 
$1636 
$1CCD 
$2528 
$2950 
$31ED 
$2422 
$28B2 
$285F 
$182A 
$1839 
$3026 
$Aiii 
$2CBREB 
SEZ 
$2269 
$246E 
$16C7 
$2D359 
$2282 
$1FF9 
$2ES2 
$2067 
$22AE 
$S1FDS 
$2712 
$A522 


SWRITE@ 
SWRITE_Bi 
TABE 
TABEG 
TBLRD 
TCOL 
TED 
TEMPS 
TIND 
TNDT XT 
TOB4 
TOF2 
TOPMENU 
TRW 
TSRCHE 
TTL. 

TXT 
TXTPTR 
UDL 

UND 
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SETBS 
SETEDIT 
SETIT 
SETP 
SETUP 
SETWM 
SHDM1 
SHOWX 
SHWT3 
SKPT 
SLM 
SMSK 
SNDX1 
SPACE 
SPCHG 
SPELL2 
SPH 
SPMAT 
SPRINT 
SPSUB1 
Spsve 
SRCD2 
SRCHU 
SRTS4 
STACK 
STBF 
STDBL 
STOADV 
STOP 
STRING 
STWW_A 
SUB1 
SUFFIX 
SUPR 
SVSUB 
SWRITED_A 
SYSVB 
TABS 
TABMAP 
TBLWT 
TCONT 
TEMP 
TEST2 
TITLE 
TOBI 
TOBF 
TOFS 
Tos 
TSRCH 
TSRCH3 
TTOS 
TXTDADR 
UCHANGE 
UDO 
UNDL. 


169 


$3268 
$4C16 
$27EF 
S2ZA78 
$4FEA 
$2BC8 
$3546 
$18B9 
$185A 
$33Be 
$19Ae 
$2B0B 
$ZZA4 
$57B8 
$2DCE 
$2D36 
$2ACE 
$2DC4 
$1D8A 
$2EFS 
$2BE3 
$2CQF 
$2BES 
$2279 
$154D 
$2628 
$1CF9 
$2763 
$2286 
$134D 
$A7E@ 
$31De 
$33CD 
$0956 
$2031 
$Z285D 
$E45C 
$182B 
$A2AS 
$1De6 
$2E61 
SAF 3 
$1F4B 
$5719 
$1684 
$282D 
$24D77 
S2acr 
$2E SD 
$cE70 
$2055 
$1FCE 
$2934 
$ZEB 1 
$2983 


SETB4 
SETF 
SETIT_A 
SETP1 
SETUPAZ 
SFOUND 
SHDMz 
SHW1 
SHWT4 
SKPT1 
SLNK 
SNAME 
SOUNDE X 
spc 
SPCHG1 
SPELL3 
SPIGN 
SPNE 
SPS1 
SPSUBE 
SPW1 
SRCH 
SRCHW 
SRTSS 
START 
STCM 
STDR 
STOADV_A 
STORE 
STRMOV 
STWW_B 
SUBZ3 
SUFLP 
SVFLG 
SWAPP 
SWRITE_A 
TAB 
TAB4 
TABPOS 
TBP1 
TCV 
TEMP1 
TIME 
TLERR 
TOBE 
TOF 
TONEXT 
TOTXT 
TSRCH@ 
TSTR 
TTOS1 
TXTG 
UCNT 
UHANDLE 
UNDL. INE 


$3272 
$2CQE 
$27EF 
$2AG8 1 
$4FEC 
$1ACI1 
$3352 
$18BE 
$1867 
$3SB4 
$1AEF 
$129E 
$2B9D 
$2016 
$2DEA 
$2D44 
$FESA 
$2AD1 
$2F SA 
$2F2D 
$2072 
$4142 
$2046 
$22D4 
$4 B12 
$29C3 
$24CE 
$2763 
$1F 46 
$1A78 
$28B8 
$1927 
$31EC 
$B1 2a 
$1FE8 
$285F 
$1827 
$1833 
$1E1F 
$1E2D 
$2QES 
$2ZDF 
$2ADE 
$243C 
$16BD 
$Z4DS2 
$1ADB 
$1FFRE 
$FESE 
$25CA 
$2057 
$1FCE 
$2295 
$293A 
$229C 
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TABLE LENGTH: 
SOURCE LENGTH: 
SPACE FREE: 


LETTER PERFECT 


$1206 
$1ED9 
$1F acl 
$1F 32 
$251C 
$3221 
$27 7F 
$ZIZIAA 
$2B94 
$57D7 
$22ES 
$275F 
$2BE4 
$27AE 
$288E 
$2897 
$2785 
$2898 
$27 1F 
$2B220 
$Z2ACD 
$4F 27 
$AAAZ 


$2DA9 


$4F2E 
SAZAAS 
$285A 
$1lEBE 
s2D8D 
$22DE 
$4ECG 


AS 1 822 


ZINDEX 


Atari V6.4 Page: 
$126C UNP@ 
$1EDD UNPS 
$1F17 UNP7 
$1ECD UNPZ 
$277F UPDATE 
$3226 UPS3 
$ZD1EB USER1 
$9 1 UWSTR 
$7 2F VCOLD_A 
$532 VFY 
$3918 VIDCTRL 
$17 SF VOFF 
S$22BC VRAM_A 
$279D VRTS1_B 
$2897 VSETZ_A 
$289E VSP 
$2785 VTBF 
$289D VTS 
$27 1F VWARM_B 
$1EAS WAIT1 
SAG WDOK 
$2283 WMAR 
$DS585 WRELK 
$121E WRITE 
$1252 WSYNC 
$2262 XITV 
$2BSA XREG 
$517C YIoO 
$2D92 YOUTS 
$2029 YUP 
$4E BE ZSP 


AS74242 13147 $3358 
3568 $@DFa 


18959 $4A2F 


17a 


$1ED3 
$1EFB 
$1F25 
$1ED2 
$4E98 
$321C 
$2DZ7 
$1345 
$270F 
$22E7 
$5195 
$BE4 
$DE00 
$279D 
$2BAl 
$052C 
$2823 
$2ACC 
$071F 
$1E09 
$2Q6B 
$2004 
$327E 
$2840 
$D40A 
$2879 
$2DD 
S206 1 
$aD92 
$200B 
$Q53E 


UNP@z 
UNP4 
UNPS 
UOFF 
UPPER 
UP_A 
USER2 
VAL 


VCOLD_| 


VFY 1 
VIDEO 
VOFF_A 
VREST 
VSAVE 
VSET_A 
VTAB 
VTOCB 
VTYP 


ZSPMSG 


$1EEG 
$1F 27 
$1F2A 
$2942 
$57A4 
$17 7F 
$2DEF 
S2QR2 
$27 2F 
$22EA 
$27 5F 
$ZBE 4 
$2193 
$1DE9 
$2892 
$2785 
$SEOQ 
SOSA 
$2AFE 
$1E@A 
$4EDG 
$1257 
$2AES 
$4EAC 
$053 
$E462 
$33BD 
$2D86 
$2A2E, 
$2F2u 
$558C 


